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This manual is the third in a series of 
four manuals providing detailed information 
about the VSE/Advanced Functions Logical 
IOCS programs. The four manuals are: 


Volume 1: General Information and 
Imperative Macros, LY24-5209. 
Volume 2: SAM, LY24-5210. 

Volume 3: DAM and ISAM, LY24-5211. 


Volume 4: SAM for DAS 


Volume 43 SD, LY24-5212. 

This third volume is intended mainly for 
persons involved in program maintenance and 
for systems programmers who are altering 
the program design. Logic information is 
not necessary for the operation of the 
programs described. 


General routines that apply to more than 
one access methcd cr more than one file 
type are described in Volumes 1 and 4. 
These routines include open/close and a 
number of transient routines. References 
to Volumes 1 and 4 are made whenever 
required for a good understanding of the 
topics discussed. 


This volume of the VSE/Advanced 
Functions LIOCS manuals consists of three 
parts: 


1. LIOCS support for DAM files 
2. LIOCS support for ISAM files 
3. Charts. 


Parts 1 and 2 supply descriptions of the 
declarative and imperative macros, DTF 
tables, and initialization and termination 
procedures for each of the file types 
described. Part 3 supplies the detailed 
flowcharts associated with the descriptions 
in the first twe parts. 


The appendixes in the back of the manual 
provide maintenance personnel with the 
service aids: 


1. Label list 


2. Message cross-reference list. 


Effective use of this publication requires 
an understanding of IBM VSE/Advanced 
Functions operation and the Assembler 
language and its associated macro 
definition language. Reference 
publications for this information are 
listed below. 
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e YVSE/Advanced Functions Messages, 


SC 33-6098. 


e IBM System/370 and 4300 Processors 


Bibliography, GC20-0001. . 


Preface 3 


CONTENTS 
DIRDCT ACCESS: PILE See. ede S ver een ee iat 2 
DIRECT ACCESS MFTHOD . «2 « « « « © «@ «© «@ 11 
DEVICE INDEPENEENT SUFPORT . 2. . «© « « « 11 
DEEDA: MACROS dccg- teh ee a ee et See 2S ee TZ 
DTFEFH MACKC. .« « « « «w « oi Se. 
REFERENCE METHCTS AND ADDRESSING SYSTEMS 20 
TRACK REFERENCE. 2 «© © © « © « © @ «@ « 20. 
RECORD: drs. te cer ge. ey ae ae ae Ge. “Se: a ce ZT 
RECORD KEY «© « « «© © © © « @ e« ar gs 7 tee 
CONVERSION OF RELATIVE ADDRESSES ae ee ee | 
MULTIPLE TRACK SEARCH. 2. 2. « « « © « « 22 
TOLOCs: @. too an e-em wal Oe. ea) VE ~ ee a Se. ee Sn 
CONTROL FIELD - SPANNED RECORDS. ... 23 
ERROR/STATUS INDICATOR «2... ..e « 23 
CAPACITY RECORD (RZFRO OR RO). ...-. 28 
WRITE RZERC MACRC. « 2 « © «© «© «© © «© « 28 
FORMATTING MACRO . « « « «© «© «© © © @e @ 28 
DAM TCGIC MODULES © ie. “eine ee wt es. ep le? es 29 
DAM LOGIC MODULE MACROS. . . . « « « « 29 
Standard DAMOD Names s . ....e. .-- 30 
Subset/Superset DAMOD Names. . .. . 30 
DIRECT ACCESS MODULES. . « « « « «© « « 31 
CAMOD: Input/Output Macros, Chart 
PRS: es Mer Se, A ete ey a ee te 
DAMOD: WAITF Macro, Charts AB-AE. . 31 
DAMOD: cCNTRL Macro, Chart AF. ... 32 
DAMCD: FREE Macro, Chart AF... . 32° 
DAMODV: Input/Output Macros, Charts 
AR TUN caie cao cae eh rah i “ee See ae eS 
CAMCDV: CNIRL Macro, Chart AF .. . 36 
DAMCDV: FREE Macro, Chart AF. .. . 36 
DAMCDV: WAITF Macro, Charts BA - BC 36 
DAMOD and DAMODV: Channel Program 
Builder Subroutine, Chart AJ. ... 36 
INITIALIZATION AND TEFMINATION . . 2... 71 
DAM OPEN CHART 01. «© « «© « «© © «© «© «© « 7/1 
Relative Addressing. .« 2. .« « « « « « 71 
DAM “CIOS &.-to3 ee ce ay. EC as a OE: ve ve, FG 
S$$BODACL: CDA Close, Input/Output, 
Charts “CA=CG. «.. w- w. sat le et es. es ve, ee oe TA 
INDEYED SEQUENTIAL ACCESS METHOD . ... 75 
RECORD. TV ORG we. ce. jes COS ee cee wer ce ees SS OS w=, TD 
STORAGE AREA Six ee. ar U6 er eee: ak ee es Swe IS 
A/C Brass. 2 25. ca 6 ee oe et a Sw 
WOLK ATCAS <:-8 6 2e ee Se ee ee we So oe TT 
OVERPICW AREAS cox o. 6 ete dy es da ce ew we ee TT 
EN DE XE Bie: a ce el ge ey ae GS Nee os) ee ee ee oe ee ES 
Mrack) [pdex- (UL) <3 6: cg. 2h. ef ee er cay ETS 
Cylinder Index (CI). ....... . 80 
Master Index (MI). « «© « « # « « « « 890 
FUNCTIONS PERFORMED BY ISAM. «2... . 81 
LCAD CR EXTENT A DASD FILF ...... 81 
ADD RECORDS. “FC. A FILES. e-e Bowe: ae wa BZ 
RANDOM RECCFD RETRIEVAL. « - ~- - « ~~ - 82 
SEQUENTIAL KECCRD RETRIEVAL. . . .«. « « 83 
ROTATIONAL POSITION SENSING (RPS) 

SUPPORT” se: cwry cab? a. ce . fet. ves Or eset tee “ee Ve. ce ae, OS 
DEPULS MACRO. 6. ves. we. St cee A 26 se! ee foe Se. wt ce 
ESMCD “MACRO pe. ce: tecccee.e. <0) we ee ee ee a wb T 

ISAM MACRO INSTRUCTIONS TO LOAD OR 

EXTEND A BAST PilLte « «.« < : - «116 
ISAM MACRC INSTRUCTIONS FOR ADDING 

RECORDS 70: Ay FLUE we © ele we cee. Sr a 116 
ISAM MACRC INSTRUCTIONS FCR RANDOM 

Reel REE NA Le Se: sec t-te ete le Cay. we ee terre Se ee ee IS 


4 LICcS Volume 3 DAM and ISAM 


Licens2d Program - Property of IBM 


ISAM MACRO INSTRUCTIONS FOR | 
SEQUENTIAL RETRIEVAL. « « « « « 
ISAM LOAD: ENDFL Macro, Phase 
$$BENDFL, Charts DA-DB. .. . 
ISAM LOAD: ENDFL Macro, Phase 
$$BENDFF, Charts DC-DD. .. . 
ISAM LOAD: SETFL Macro, Phase 
$$BSETFL, Charts DE-DF. .. . 
ISAM LOAD: SETFL Macro, Phase 
$$BSETFF, Chart DG. .«... 
ISAM LOAD: SETFL Macro, Phase 
$$BSETFG, Chart DH. .«.... 
ISAM LOAD: SETFL Macro, Phase 
$$BSETFI, Chart DK.~ .« .«. « « « 
ISAM LOAD: SETFL Macro, Phase 
$$BSETFH, Chart DJ. .« « « « e 
ISAM LOAD: WRITE Macro, NEWKEY 
Charts DL-DP. « « & «6 © 
ISAM ADD: WAITF Macro, Charts 
BASED ve sec Se es Se, a “ae ee oe ve, ete 
ISAM ADD: WRITE Macro, NEWKEY, 
Charts “BBE lr é: ey de sa et, ce See ew 


$$BINDEX Read Cylinder Index Into 


_ Storage, Charts FA-FB .. . . 


hoe — *® VQe 28 


GJ) 6 


u 


a 


. 2119 
. .120 
2 
+ 2122 
= ie 
aetou 
. 2124 
. 2124 
2 0125 
5. «26 
en ee 
. 2140 


« - 142 


ISAM RETFVE, RANDOM: READ Macro, 
KEY, Ch art FC e e e e e e >. e ° 
ISAM RETRVE, RANDOM: WAITF Macro, 


Charts: PDSF Gs 22%. Se ws wo fs ce eo ee PAZ 
ISAM RETRVE, RANDOM: WRITE Macro, 

KEY, Chart FH «. so ve 2: et “et Ged ec cm ee ce TES 
ISAM RETRVE, RANDOM: FREE Macro, 
Chart FR. « 6 « © «© © © «© © «© © © 6 143 
ISAM RETRVE, SEQNTL: ESETL Macro, 

Charts Gis: 7e.-e-ac Seo oe ay Re ee a eS TET 
ISAM RETRVE, SEQNTL:. GET Macro, 

Charts: GB=CGRs ss ee vp acces: 6s ee O17 
ISAM RETRVE, SEQNTL: PUT Macro, 

Chart. Cr ¢ <2. rg: ae 2. ete: ew. ee ee we 


ISAM RETRVE, SEQNTL: 
SSBSETL, Charts GG-GL... . 
ISAM RETRVE, SEQNTL: 
$$BSETL1, Charts GM-GR. . .. 
ISAM ADDRTR: ESETL Macro, 
ISAM ADDRTR: GET Macro, Charts 
JB JE 8 6 8 me we oe ee 
ISAM ADDRTR: PUT Macro, 
ISAM ADDRTR: READ Macro, KEY, 
Chart JG. «© « « « © © « © « « 
ISAM ADDRTR:3 SETL Macro, 


Charts: JH=0 Ke. ce S: -do eS 3, we GS ee we OS 
ISAM ADDRTRs SETL Macro, $$BSETL1, 
Chartres .di-J08 <k. « ww ww we GC ea bO9 
ISAM ADDRTRs SETL Macro, $$BSETL2 .160 
ISAM ADDRTR: WAITF Macro, Charts 
RASR GE oe ei.) ce. Ree ee Se See et ee ee, wr OO 
ISAM ADDRTR:; WRITE Macro, KEY, 
Chart KPs ss wo 6 @ @ «© % eos wit «@ w« 162 , 
ISAM ADDRTR: WRITE Macro, NEWKEY, 
Charts EF-EF. ... ae a « a, «163 
ISAM INITIALIZATION AND TERMINATION co 
PROCEDURES. .. « * e a ee ee Oe 
ISAM OPEN/CLOSE LOGIC CHART 02 ae et, 6190 
$$BOISO1: “ ISAM Open, Phase 1, 
Charts UA=EBs «0:4: S..4 @ we ce ee @ 6190 
$$BOISO2: ISAM Open, Phase 2, 
Chart: EC a Se 26:.cé, cee tae en ts te ve ee SR we FO 


SETL Macro, 


SETL Macro, 


Chart JF. 


$$BSETL, 


- o 149 


- « 150 


Chart JA. 156 


© « 156 
0 157 


e 0 157 


Licensed Program - Property of IBM 


$$BCISO4: ISAM Open, Phase 4, $$BCISOA: ISAM Close, Charts NA-NC.193 
Chart LD. « <6 %. 6 < s « «© « @ «6 «190 S$$BORTV1: ISAM RETRVE Open, Phase 
$$BOISO5: ISAM Open, Phase 5, 1;: Charts ND=NF ... 6 « o «> we ww w S194 
Charts LEwLG.e «wo So wes SS & wo eo 190 $$BORTV2: ISAM RETRVE Open, Phase 
$$BOISO6: ISAM Open, Phase 6, 2, Charts NG-NH ~« «© « « « © « « « « 194 


Charts LH-II. ... . ‘ «we oe 191 


S$$BCISRE: ISAM Open, RPS Phase, EXPLANATION OF FLOWCHART SYMBOLS ... .196 
Chart LJ. _@ e e e @e es e @e @ e @ e - 191 DAM CHARTS e @e @e eo e @e e oe e e es oe @ e e 197 
$$BCISO7: ISAM Open, Phase 7, SAM “CHARTS <. .o- Us: Sc er em Swe, KE OS Ge a ae SZZO 


Charts MA-MD. 2. «© 2 «© «© © «© © « © 0 192 

$$BOISO8: ISAM Open, Phase 8, APPENDIX A: LABEL CROSS-~REFERENCE LIST. 327 
Charts: ME=BYe: «.. 6° 6 ew oS «oo «192 

$$BOISO9: ISAM Open, Integrity APPENDIX Bs: MESSAGE CROSS-REFERENCE 


$$BCIS10: ISAM Open, Integrity | 
Phase Ze Charts MJ- MK ee e e© e e #@ @ 193 INDEX. ee e@ e@ e 8 ._ 28 ww e@ ee © e e© e #e# ee e@ 335 


Contents 5 


FIGURES 

Figure 1. DTFDA Table (Part 1 of 6) .. 13 
Figure 2. DIF Extension for DTFDA ... 19 
Figure 3. DTFPH Table for DAM Files . . 20 
Figure 4. Record ID Returned to IDLOC . 23 


Figure 5. 
Figure 6. 


Spanned Record Control Field. 24 
Frror/Status Indicator (Part 


1 of 4) e e e os e e e @e @ e e e e e e e 25 
Figure 7. Mulitsegment Spanned Record . 34 
Figure 8. DAM Descriptor Byte ..... 37 


Figure 9. DAM Channel Program Builder 
Strings Without. RPS Support ..... . 38 
Figure 10. DAM Channel Program Builder 
Strings with RPS Support. .... -« «39 
Figure 11. Basic CCWs for DAM Channel 
Program Builder . . . « « « « « « « « « 4O 
Figure 12. DAM Channel Program 

Descriptor Bytes. .~. . « « « « e we oe wT 
Figure 13. Example of DAM Channel 

Program for a WRITE ID Macro. .... . 42 
Figure 14. DAM Channel Programs 

Without RPS Support (Part 1 of 14). . . 43 
Figure 15. DAM Channel Programs with 

RPS Support (Part 1 of 14). ...... 57 
Figure 16. Format of Extent 

Information to User ... : ee Ay 
Figure 17. DSKXINT Table for Relative 
RGGrTESSING <<. -s) ey es Se Ss NO wl ce ee ee ee. 
Figure 18. Alteration Factors for 

Relative Addressing . . 2. « « «© « « « « 72 
Figure 19. ISAM I/O Area Requirements 

(In DYCES)s oo we: we. ws he. wee es ee OO: ee ee SE ES TD 
Figure 20. Format of Sequence-Link 
Field/Index Level Pointer . ....-.. 76 
Figure 21. ISAM Work Area Requirements 

(Uf DY TSS)ic: «es Je te ei SY Me we, wee ee. ee Se a TT 
Figure 22. Schematic Example of a 

Track Index ... . ° . e e« 79 
Figure 23. Cylinder Overflow Control 
Record (COCR) . ...«.« -« 2 woe, Ve, ee BO 
Figure 24. Schematic Example of a 

Cylinder Index. ... ° ° e © « e 80 
Figure 25. Schematic Example of a 

Master Index. ~« .« « «© « «© «© « «@ «@ ~ © 81 
Figure 26. DIFIS Extension for RPS. ° 84 
Figure 27. DTFIS LOAD Table (Part 1 Be. 

2) ee ae ae ee ae : : “ wo Sa a 25 
Figure 28. DIFIS ADD Table (Part 1 of 

Gi) 28 ee eis Se a es USP ee er ee, er en Ge tet ca ey. ce 0 
Figure 29. Overflow Area Upper Limits 
(MBCCHER)? a: S65. : ce ee Sete es, 4S. Se a ee. 96 
Figure 30. End of Volume Limits for 

Prime Data Area (MBCCHHR) . ... +... 96 
Figure 31. DTFIS RETREVE, RANDOM Table 
(Part 1 :-Of (Gy te te oe: Sees we tee ‘ee ty. lic ode wat (OT 


Figure 32. DTFIS RETREVE, SEQNTL Table 
(Part. 4, -Of (G)) «6a, at ee ey. eo. & ar «a> «102 
Figure 33. DTFIS RETREVE, ADDRTR Table 
CPARE WOE - P). wine we Bom eS S: See- Seer te ce: 2, VO 
Figure 34. ERREXT Parameter List. . . .115 
Figure 35. Pointer to First Record to 
be Processed by Sequential Retrieval. .119 
Figure 36. CCW Chain Built by $$BSETFL 
to Write Prime Data Records ..... .123 


6 LIOCS Volume 3 DAM and ISAM 


“Figure 46. 


Licensed Program - Property of IBM 


Figure 37. Channel program builder for 
ADD -- CCW chain built to search 
master cylinder index . .....e. . 

Figure 38. Channel program builder for 
ADD -- CCW chain built to search track 
DGS KR: Sei oe ee: ey Mee ee SS ee, we. es 0S 

Figure 39. Channel program builder for 
ADD -- CCW chain built to write new 
EOP TECORG 6 ce. 2a 6) ues ce Sr: ee eed Ser, ers en SS 

Figure 40. Channel program builder for 
ADD -- CCW chain built to find prime 
data. TSCOLd so. ss: a; Se: (Sw Ss. eSB we 

Figure 41. Channel program builder for 
ADD -- CCW chain built to rewrite 
track 2Andex -Cntry 3. ieo ee eS 

Figure 42. Channel program builder for 
ADD -- CCW chain built to write track 
TRdSx ONtly «ee. wr “e- Se te e R we e 

Figure 43. Channel program builder for 
ADD -- CCW chain built to write COCR. 

Figure 44. Channel program builder for 
ADD -- CCW chain built to read 
previous overflow record. . ... .« 

Figure 45. Channel program builder for 
ADD -- CCW chain built to write 
previous overflow record. .... .« 

Channel program builder for 
ADD -- CCW chain built to write new 
overflow record .... ° 3 

Figure 47. Channel program builder for 
ADD -- CCW chain built to write over 
EOF record (blocked records). ... . 

Figure 48. Channel program builder for 
ADD -- CCW chain built to write over 
EOF record (unblocked records). ... 

Figure 49. Channel program builder for 
ADD -- CCW chain built to write EOF in 
independent overflow area ...... 

Figure 50. Channel program builder for 
ADD -- CCW chain built to read last 
track index. Entry 1c: ce vas ew. fer: Gwe eh ww! 

Figure 51. Channel program builder for 
ADD -- CCW chain built to read 
overflow record . 2. « « «© « «© « « « 

Figure 52. Channel program builder for 
ADD -- CCW chain built to read last 
PEING. data record, si wa 6 owl wal “SS AS 

Figure 53. Channel program builder for 
ADD -~- CCW chain built to write block 
of prime data records and verify... 

Figure 54. Channel program builder for 
ADD -- CCW chain built to write track 
IRGSX “CNTY 6 eic 6 cer te es ei Hee ee we ete 

Figure 55. Channel program builder for 
ADD --~ CCW chain built to read index 
entry - « « «© «© «© © w 6 «© «© «© © © © « 

Figure 56. Channel program builder for 
ADD -- CCW chain built to write index 
CNntry « « © © © © © # « «© «© «© 6 «© «@ « 

Figure 57. Channel program builder for 
chain built to write track indexADD - 
- CCW overflow entry . . ...e .. - 

Figure 58. Channel program builder for 
ADD. =="MOCESs. se. we we ee we we A we OR ew 


- 128 


« 129 


e129 


- 130 


- 131 


- 132 


- 132 


- 133 


- 133 


- 134 


2134 


- 135 


S135 


- 136 


- 136 


« 137 


~ 137 


- 138 


- 138 


- 139 


- 139 


- 140 


Licensed Program - Property of IBM 


Figure 59. CCW chain built by $$BINDEX 
to skip cylinder index entries preced- 
ing the one to process a given key. . 

Figure 60. CCW chain built by $$BINDEY 
to read cylinder index into storage . .142 

Figure 61. Channel program builder for 
random retrieval -- CCW chain built to 
search master cylinder index. .... 

Figure 62. Channel program builder for 
random retrieval -- CCW chain built to 
search track index. .. a ae oe ae ee 

Figure 63. Charnel progran builder for 
random retrieval -- CCW chain built to 
find record in prime data area 
(unshared track). 2. .« « © « «© « « © « «145 

Figure 64. Channel program builder for 
random retrieval -- CCW chain built to 
find record in prime data area (shared 
track). « « « « «© © © © © © «© « « © « 

Figure 65. Channel program builder for 
random retrieval -- CCW chain built to 
find record in overflow chain .... 

Figure 66.’ Channel program builder for 
random retrieval -- CCW chain built to 
write record. ..... ae ° - 146 

Figure 67. Channel program builder for ; 
random retrieval -- notes . ..... .747 

Figure 68. Channel program builder for 
sequential retrieval -- CCW chain 
built to search master cylinder index .151 

Figure 69. Channel program builder for 
sequential retrieval -- CCW chain 
built to search track index .... 

Figure 70. Channel program builder for 
sequential retrieval -- CCW chain 
built to find starting record in prime 
Gata “ATC. 6 s. e aS Se, Se eS ee 

Figure 71. Charnel program builder for 
sequential retrieval -- CCW chain 
built to find starting record in 
OVErLLOW Chains: 2.6: a eo. ei: Setar es ee ee 

Figure 72. Channel program builder for 
sequential retrieval -- CCW chain 
built to write records. .«. ...... 

Figure 73. Channel program builder for 
sequential retrieval -- CCW chain 
built to search track index ..... 

Figure 74. Channel program builder for 
sequential retrieval -- CCW chain 
bulit to read records « «< «= « «% « « « 


- 141 


2 144 


e144 


~145 


- 146 


me 


-152 


~ 153 


st o3 


- 154 


- 154 


Figure 75. Channel program builder for 
sequential retrieval -- notes... eroS 
Figure 76. Channel program builder for 
ADDRTR -- CCW chain built to search 
master-cylinder index for random 
retrieve function ... 2 so 20, « POG 
Figure 77. Channel program builder for 


ADDRTR -- CCW chain built to search 
track index for random retrieve 
PUNCELVON Ss: sé 6 yic eS: a eee es ee aS 
Figure 78. Channel program builder for 
ADDRTR -- CCW chain built to find 
recerd in prime data area (unshared 
track) for random retrieve function . 
Figure 79. Channel program builder for 
ADDRTR -- CCW chain built to find 
record in prime data area (shared 
track) for random retrieve function . 
Figure 80. Channel program builder for 
ADDRTR -- CCW chain built to find 
record in overflow chain for random 
POL TLE ve: FUNCtION: «. 6. weve ww! Ms we, ce, 


- 164 


- 165 


- 166 


- 165 


Figure 81. Channel program builder for 
ADDRTR -- CCW chain built to write 
record for random retrieve function . 

Figure 82. Channel program builder for 
ADDRTR -- CCW chain built to search 
master cylinder index for add function. 167 

Figure 83. Channel program builder for 
ADDRTR -- CCW chain built to search 
track index for add function. .... 

Figure 84. Channel program builder for 
ADDRTR -- CCW chain built to write new 
EOF record for add function... . 

Figure 85. Channel program builder for 
ADDRTR -- CCW chain built to find .. 
prime data record for add function. . 

Figure 86. Channel program builder for 
ADDRTR -- CCW chain built to rewrite 
index entry for add function. .... 

Figure 87. Channel program builder for 
ADDRTR -- CCW chain built to write 
track index entry for add function. . 

Figure 88. Channel program builder for 
ADDRTR -- CCW chain built to write 
COCR “for. add Function « «6 <:.@ « -« ~« 

Figure 89. Channel program builder for 
ADDRTR -- CCW chain built to read 
previous overflow record for add 
FUNCTION ws, (ei ele, Si cel Sh lat eo ete es ee TZ 

Figure 90. Channel program builder for 
ADDRTR -- CCW chain built to write 
previous overflow record for add 
EQNCEI ONS ter ee se SS. cee RY aD ee a S/o. ee 

Figure 91. Channel program builder for 
ADDRTR -- CCW chain built to write new 
overflow record for add function. .. 

Figure 92. Channel program builder for 
ADDRTR -- CCW chain built to write 
over EOF record (blocked records) for 
Sdqd) EUNCCIAON. ~%c6-4o 5: ten et Se, er ee 

Figure 93. Channel program builder for 
ADDRTR -- CCW chain built to write 
over EOF record (unblocked records) 
for: add Euncti on. js). a se ae Se A er eee ee TTS 

Figure 94. Channel program builder for 
ADDRTR -- CCW chain built to write EOF 
record in independent overflow area 
for add functions «< « « %. «ss % ‘. 

Figure 95. Channel program builder for 
ADDRTR -- CCW chain built to read last 
track index entry for add function. . .177 

Figure 96. Channel program builder for 
ADDRTR -- CCW chain built to read 
overflow record for add function. . . 

Figure 97. Channel program builder for 
ADDRTR -- CCW chain built to read last 
prime data record for add function. . 

Figure 98. Channel program builder for 
ADDRTR -- CCW chain built to write 
block of prime data records and verify 

for add function. 2. « 2 © « «© © © « © 0 3/8 

Figure 99. Channel program builder for 
ADDRTR -- CCW chain built to write 
track index entry for add function. . 

Figure 100. Channel program builder 
for ADDRTR -- CCW chain built to read 
index entry for add function. .«. .. . .180 

Figure 101. Channel program builder 
for ADDRTR -- CCW chain ktuilt to write 
index entry for add function. .... 

Figure 102. Channel program builder 
for ADDRTR -- CCW chain built to write 
track index overflow entry for add 


- 166 


- 168 
- 168 
- 169 
- 170 
0171 


2172 


2174 


2175 


- 176 


otlT 


- 178 


2 179 


- 180 


Figures 7 


FUNCELONS: os. a, ae cs Se ee Se TI 
Figure 103. Channel program builder 
for ADDRTR -- CCW chain built to write 
records for sequential retrieve _ 
PUNCTTONS: ‘swine: He -ce e Sees Wes es oe Sr ST 
Figure 104. Channel program builder 
for ADDRTR -- CCW chain built to 
search track index for sequential 
retrieve function . . « « « « « « « e« 
Figure 105. Channel program builder 
for ADDRTR -- CCW chain built to read 
record for sequential retrieve 
function. « .« « «© « « © « © © « © « «@ 
Figure 106. Channel program builder 
for ADDRTR -- CCW chain built by 
SSBSETI..CON):. cc Pel oo- ew: es, ean SS ae RO. 
Figure 107. Channel program builder 
for ADDRTR -- CCW chain built by 
$$BSETL (1) to search TI for 


- 182 


- 182 


- 183 


8 LIOCS Volume 3 DAM and ISAM 


Licensed Program - Property 


sequential retrieve function. ... 
Figure 108. Channel program builder 
for ADDRTR -- CCW chain built by 
S$$BSETL (1) to find first record in 
prime data area for sequential 
retrieve function . . 2. « « « « « « 
Figure 109. Channel program builder 
for ADDRTR -- CCW chain built by 
$$BSETL (1) to find first record in 
overflow chain for sequential 
retrieve function . . 2. 2. « « « « -« 
Figure 110. Channel 
for ADDRTR -- notes 
Figure 111. Channel 
for ADDRTR -- notes 7-8 ..... « 
Figure 112. RPS DIF Extension Work 
Area. « «© «© © «© © © «© © © © © © © 
Figure 113. Message Cross-Reference 
List. (Part: T-Of 2) 0 vere we Se ee te: Os 


1-6 se @ e e @e e 
program builder 


program builder- 


of IBM 


- - 184 


- - 184 


« - 185 


- - 186 


« 2 192 


Licensed Program - Property of IBM 


Chart 01. DAM Open. « -« «© «© «© « «© @ « 
Chart O22 ISAM Cpen . «© « « « «© «© « « 
Chart AA. DAMOD: Input/Output Macros. 
Chart AB. DAMOD: WAITF Macro (Part 1 


Of )) soo ve see ses a: eS Je os we te 
Chart AC. DAMOD: WAITF Macro 
Of vy 2, 6-6 Sts 
Chart AD. TCDAMOTL: 
OF A) we te: sei. 6. cor WY ee. 8s, ae aa: Te et a ee 
Chart AF. VCAMOLD: WAITF Macro (Part 4 
OL A) ee. 8 we) Sr te Se et ee. ae me ee “ee 


(Part 2 


(Part 3 


WAITF Macro 


Chart AF. DAMOD and DAMODV: CNTRL and 
FREE Macros e Dad ba @ se @e e @e e @ e @e @e 
Chart AG. TCDAMOD: Seek Overlap 


Subroutine (Part 1 of 2)....... 
Chart AH. TCAMOL: Seek Overlap 
Subroutine (Part 2 of 2). ..... - 
Chart AJ. DAMOLY and LAMOLV: Channel 
Program Builder Subroutine. ..... 
Chart AK. DAMODV: Input/Output Macros 
MCRAE: F.1OE: Dye ei eee Si et Caer Cae ces Bo OO es 
Chart AK. DAMODV: Input/Output Macros 
(Part 2 of 5) 2. «© « « «© © 2 «© 2 2 o@ 
Chart AL. TCAMOLDV: Input/Output Macros 
(Pant. SOLD) : a: ee. we es ee Se 
Chart AM. DAMOLTV: Input/Cutput Macros 
(Part i O£. 5). eS. so ix W.-W AS. Wel cw es 
Chart AN. DAMODV: Input/Output Macros 
(Part, SD: 08 25), sc. .se ee es, eh oes. a ee este! Jes Me 
Chart BA. DAMODV WAITF Macro (Part 1 
OL 3): es « ecw eS 
Chart BB. TAMODL 
Of. 3). a. 6 > Se wi is « e 
Chart BC. LCAMOL 


WAITF Macro (Part 2 


WAITF Macro (Part 3 
Of 3) ¢ © © © « © © © © © © «© © © 
Chart BD. DAMODV: GET Subroutine. .. 
Chart BE. DAMOLCV: Seek Overlap 
Subroutine (Part 1 of 2). . 2. « «© « « 


Chart BF. DAMODV: Seek Overlap 
Subroutine (Fart 2 of 2). ..... « 
Chart CA. $$BODACL: DA Close 
Input/Output (Part 1 of 3). ...e. 
Chart CB. S$S$EODACL: LA Close 
Input/Output (Part 2 of 3)....e... 
Chart CC. $$RODACL: DA Close 


Input/Cutput (Part 3 of 3). ....-. 
Chart DA. ISAM LOAD: ENDFL Macro, 
Phase 1, $$BENCDFL (Part 1o0f 2) ... 
Chart DB. ISAM LOAD: ENDFL Macro, 
Phase 1, $$BENDFL (Part 2 of 2)... 
Chart DC. ISAM LOAD: ENDFL Macro, 
Phase 2, $$BENDFF (Part 1 of 2) .. . 
Chart DD. ISAM LOAD: ENDFL Macro, 
Phase 2, $$BPENIFF (Part 2 of 2)... 
Chart DE. ISAM LOAD: SETFL Macro, 
Phase 1, S$$BSETFL (Part 1o0f 2)... 
Chart DF. ISAM LOAD: SETFL Macro, 
Phase 1, $$BSETFL (Part 2 of 2) ... 
Chart DG. ISAM LOAD: SETFL Macro, 
Phase 2, $$BSETFF . . 2. « « «© «© © « « 
Chart DH. ISAM LOAD: SETFL Macro, 
Phase 3, $$BSETFG . . - « 2. « ee © e 
Chart DJ. ISAM LOAD: SETFL Macro, 
Phase 4, $$BSETFH ~« «© « «© « « «© « @« «@ 
Chart DK. ISAM LOAD: SETFL Macro, 
Phase 3A, $$BSETFI. .«. « «© «© «© «© «© © « 


. 73 
.189 
197 
.198 
.199 
. 200 
. 201 
. 202 
. 203 
. 204 
. 205 
. 206 
-207 
- 208 
. 209 
-210 
2214 
2212 


£213 
214 


2215 
- 216 
a2l7 
~218 
2219 
-220 
2221 
2222 
2223 
2224 
2° 225 
- 226 
~227 
-228 


- 229 


Chart EJ. 


CHARTS 


Chart DL. ISAM 
NEWKEY (Part 1 
Chart DM. ISAM 
NEWKEY (Part 2 
Chart DN. ISAM 
NEWKEY (Part 3 
Chart DP. ISAM 
NEWKEY (Part 4 
Chart EA. ISAM 
TOF A): 6) ea 
Chart EB. ISA 
2 Of 4) s. = is cs 
Chart ISA 
SOF HY wae ce: wah, es 
Chart ISAM ADD: 
BOE OR) «so. tes Ve tee MOE cer whee WR? He eh nee “er, Je 
Chart EE. ISAM ADD and ADDRTR: WRITE 
Macro, NEWKEY (Part 10f 2) .... . 
Chart EF. ISAM ADD and ADDRTR: WRITE 
Macro, NEWKEY (Part 2 of 2) .« « « « .« 
Chart EG. ISAM ADD, RETRVE, and 
ADDRTR: Subroutines (Part 1 of 8) .. 
Chart EH. ISAM ADD, RETRVE, and 
ADDRTR: Subroutines (Part 2 of 8) .. 
ISAM ADD, RETRVE, and 
Subroutines (Part 3 of 8) .. 
ISAM ADD, RETRVE, and 2 
Subroutines (Part 4 of 8) .. 
ISAM ADD, RETRVE, and 7 
Subroutines (Part 5 of 8) .. 
ISAM ADD, RETRVE, and 
Subroutines (Part 6 of 8) .. 
ISAM ADD, RETRVE, and 
Subroutines (Part 7 of 8) .. 
ISAM ADD, RETRVE, and 
ADDRTR: Subroutines (Part 8 of 8) .. 
Chart FA. $$BINDE¥: Read Cylinder 
Index into Storage (Part 1 of 2)... 
Chart FB. $$BINDEY: Read Cylinder 
Index into Storage (Part 2 of 2)... 
Chart FC. ISAM RETRVE, RANDOM: READ 
“MACrO; KEY«.. 616: e--iee Ve. ee. eee: Se 8S Se ee 
Chart FD. ISAM RETREVE, RANDOM: 
Macro (Part 1o0f 4) .~. -« «© « « « .e 
Chart FE. ISAM RETREVE, RANDOM: WAITF 
Macro (Part 2 of 4) . . ©. « « « e « 
Chart FF. ISAM RETREVE, RANDOM: WAITF 
Macro (Part 3 of 4) .« « « «© « « «© « « 
Chart FG. ISAM RETREVE, RANDOM: WAITF 
Macro (Part 4 of 4)... ee oe | 
Chart FH. ISAM RETREVE, RANDOM: 
Macro KEY ~ « « « « © © « © «© « © « e 
Chart FJ. ISAM RETREVE, RANDOM: 
Subroutines .. ...e« -« S. e. & 
Chart FK. ISAM RETREVE, RANDOM: FREE 
MacrO « « «© «© « © © © «© © © © © «© « « 
Chart GA. SAM RETREVE, SEQNTL: ESET 
Macro .« « « © «© «© «© « « e «© « @ 
Chart GB. SAM RETREVE, SEQNTL: 
Macro (Part 1 o0f 4) ..... . 
Chart GC. SAM RETREVE, SEQNTL: 
Macro (Part 2 of 4) . ..e. . 
Chart GD. SAM RETREVE, SEQNTL: 
Macro (Part 3 of 4) . « « « « « 
Chart GE. SAM RETREVE, SEQNTL: 
Macro (Part 4 of 4) .. .« «© « « « «© « 


LOAD: Write Macro, 
Of Ua: se: . 6. ae See tar CST. CaS 
LOAD: Write Macro, 
Of De 2 << « « Se © ‘we & 
LOAD: Write Macro, 
OF i) ves cer. ee eS el Sel tee “Ss 
LOAD: Write Macro, 
OE. ye we Sc. wes Hid; Ver es 
ADD: WAITF Macro (Part 


ADD: WAITF Macro (Part 


WAITF Macro (Part 


ADD: 


WAITF Macro (Part 


ADDRTR: 
Chart EK. 
ADDRTR: 
Chart EL. 
ADDRTR: 
Chart EM. 
ADDRTR: 
Chart EN. 
ADDRTR: 
Chart EP. 


GET 


GET 


GET 


WAITF 


WRITE. 


230 
231 
232 
.233, 
234 
.235 
236 
237 
238 
. 239 
. 240 
247 
242 
243 
244 
245 
246 
247 
. 248 
249 
. 250 
251 
252 
.253, 
.254 
255 
. 256 
.257 
258 
259 
260 
261 


- 262 


Charts 9 


Chart GF. SAM RETREVE, 
MACTO! we ote: wes lorie: Jee as 
Chart GG. SAM RETREVE, 
Macro, $$BSETL (Part 1 
Chart GH. SAM RETREVE, 
Macro, $$BSETL (Part 2 
Chart GJ. SAM RETREVE, 
Macro, $$BSETL (Part 3 
Chart GK. SAM RETREVE, 
Macro, $$BSETL (Part 4 
Chart GL. SAM RETREVE, 
Macro, $$BSETL (Part 5 
Chart GM. SAM RETREVE, 
Macro, $$BSETL1 (Part 
Chart GN. SAM RETREVE, 
Macro, $$BSETL1 (Part 
Chart GP. SAM FETREVE, 
Macro, $$BSETL1 (Part 
Chart GQ. SAM RETREVE, 
Macro, $$BSETL1 (Part 
Chart GR. SAM RETREVE, 
Macro, $$BSETL1 (Part 
Chart HA. SAM RETREVE, 
ADDRTR: Subroutines (P 
Chart HB. SAM RETREVE, 
ADDRTR: Subroutines (P 
Chart HC. SAM RETREVE, 
ADDRTR: Subroutines (P 


Chart JA. SAM ADDRTD: 
Chart JB. SAM ADDRTR: 
4 Of GY. ew oe SSS 
Chart JC. SAM ADDRTR: 
2. OE A). ee Se Se. ae OS. 
Chart JD. SAM ADDRTR: 
SHOE GE) eS ee ce S08 
Chart JE. SAM ADDRTR: 
& of 4) « « «© © © «@ «@ 
Chart JF. SAM ADDRTR: 
Chart JG. SAM ADDRTR: 
Chart JH. SAM ADDRTR: 
$$BSETL (Part 1 of 3) 
Chart JJ. SAM ADDRTR: 
S$BSETL (Part 2 of 3) 
Chart JK. SAM ADDRTRs: 
$$BSETL (Part 3 of 3) 
Chart JL. SAM ADDRTR: 
$$BSETL1 (Part 1 of 5) 
Chart JM. SAM ADDRTR: 
$$BSETL1 (Part 2 of 5) 
Chart JN. SAM ADDRTRs 
$$BSETL1 (Part 3 of 5). 
Chart JP. 
$$BSETL1 (Part 4 of 5) 
Chart JQ. SAM ADDRTR: 
$$BSETL1 (Part 5 of 5) 
Chart KA, 


(Part 1 0f 5) ...e. 
Chart KB. 
(Part 2 of 5)... P 
Chart KC. 
(Part 3 of 5)... .e 


10 LICCS Volume 3 DAM 


SEQNTL: PUT 


SEQNTL: 
of 5). . 
SEQNTL: 
Of 5). + 
SEQNTL: 
of 5). . 
SEQNTL: 
of 5). . 
SEQNTL: 
of 5). . 
SEQNTL: 
1 O£. 5) -« 
SEQONTL: 
2 Of 5) « 


SETL 


SETL 


SETL 


SETL 


SETL 


SETL 


SETL 


SEQNTL: SETL 


3 of 5). 
SEOQNTL: 
4 of 5) . 
SEQNTL: 
5 OF <5). x6 
SEQNTL, 
art 1 of 
SEQNTL, 
art 2 of 
SEQNTL, 
art 3 of 


SETL 


SETL 


and 


ESETL Macro .. 


GET Macro 
GET Macro 
GET Macro 
GET Macro 


PUT Macro 


READ Macro, 


(Part 
(Part 
(Part 
(Part 


KEY 


SETL Macro, 


SETL Macro, 


SETL Macro, 


SETL Macro, 


SETL Macro, 


SETL Macro, 


e 1@ e 


SAM ADDRTR: SETL Macro, 


SETL Macro, 


and ISAM 


SAM ADDRTR: WAITF Macro 
SAM ADDRTR: WAITF Macro 


SAM ADDRTR: WAITF Macro 


- 263 
- 264 
- 265 
- 266 
- 267 
- 268 
. 269 
~270 
2271 
e272 
e213 
274 
22/15 


~276 
~277 


- 278 
-279 
- 280 
- 281 


282 
- 283 


284 


285 
- 286 


- 288 


- 289 


- 290 
~ 297 
e292 
- 293 


- 294 


Licensed Program - Property of IBM 


Chart KD. SAM ADDRTR: WAITF Macro 

(Part: 4 Of 5) se: eee ds io ae. ee cw we Cs a 295 
Chart KE. SAM ADDRTR: WAITF Macro 

(Part iD: OL. 5)? sa er eo ts om Oa eh we. cee ee OS a we 9G 
Chart KF. SAM ADDRTR: WRITE Macro, KEY.297 
Chart LA. $BOISO1: ISAM Open, Phase 1 

(Parte POF 2). os car. vos des ws, Se a SS. Oe SS: 2 ZOE 
Chart LB. $BOISO1: ISAM Open, Phase 1 

(Part 2 Of 2) « « «© © «© «© «© © © #@ & «@ 0 299 
Chart LC. $BOISO2: ISAM Open, Phase 2 .300 
Chart LD. $BOISO4: ISAM Open, Phase 4 .301 
Chart LE. $BOISO5: ISAM Open, Phase 5 

(Part 1 o0f 3)... Sa: Se. Wee. we OZ 
Chart LF. $BOISO5: ISAM Open, Phase 5 

(Part 2 of 3) .«. . e oc «. woe we 303 
Chart LG. $BOISOS: ISan Open, Phase 5 

(Part: 3 Of 3). sw we ce Yet. ei m So. Se es ee. OE 
Chart LH. $BOISO6: ISAM Open, Phase 6 

(Part: T.08 -2). so. ww Sl. we ces. oe OS. SE: es SS OS 
Chart LI. $BOISO6: ISAM Open, Phase 6 

(Part. 2 Of 2). we got See 2 wt, Ca oe w 6, 306 
Chart LJ. $BOISRP: ISAM Open, Phase 

RPS @. fan veo er. e 2 ee OO SA el ew te Wee oes SO 
Chart MA. $BOISO7: ISAM Open, Phase 7 

(Part 1 of 4) 2. « «© «© « «© © © «© «© © «© « 308 
Chart MB. $BOISO7: ISAM Open, Phase 7 

(Part 2: Of 4) «© ws .6) ie «@ « \ « ow «309 
Chart MC. $BOISO7: ISAM Open, Phase 7 

CPart:. 3 “Of 4). .4.-@ 6 ww i eer we ve: vec ce. 310 
Chart MD. $#BOISO7: ISAM Open, Phase 7 

(Part-4 of 4) «© < © 6. @. we @ «© “6-6-6371 
Chart ME. $BOISO8: ISAM Open, Phase 8 

(Pact. 1)Of (2), eo eee eee oe es wt ee BAZ 
Chart MF. $BOISO8: ISAM Open, Phase 8 

(Part. 2) Of. 2): -< oo S.-6 we es. es So Se ey Ss, eS 
Chart MG. $BOISO9: ISAM Open, 

Integrity Phase 1 (Part 1 of 3) ... .£314 
Chart MH. $BOISO9: ISAM Open, 

Integrity Phase 1 (Part 2 of 3) ... .~315 
Chart MI. $BOISO9: ISAM Open, 

Integrity Phase 1 (Part 3 of 3) .°. . .~316 
Chart MJ. $BOIS10: ISAM Open, 

Integrity Phase 2 (Part 1 of 2) ... 2.317 
Chart MK. $BOIS10: ISAM Open, 

Integrity Phase 2 (Part 2 of 2) - 318 
Chart NA. $BCISOA:s ISAM Close (Part 1 

Of 3) es er ee ete! vce) Se aL, ae ‘ Pim > oh, 
Chart NB. $BCISOA: ISAM Close (Part 2 

OL 23) 262 las 6 ee Se Go a Ss a, SS ws cae wee AS ZO 
Chart NC. f$BCISOA: ISAM Close (Part 3 

Of 3): So Sw ow Se ee Se ee es ew oS 327 
Chart ND. $BORTV1: ISAM RETRVE Open, 

Phase 1 (Part 1 of 3) .~. .« « « « « « « «322 
Chart NE. $BORTV1: ISAM RETRVE Open, 

Phase 1 (Part 2 of 3) .~ .« «© « © « « w« 2323 
Chart NF. $BORTV1: ISAM RETRVE Open, 

Phase 1 (Part 3 of 3) - ~. « « «© «© « « «324 
Chart NG. $BORTV2: ISAM RETRVE Open, | 

Phase 2 (Part 1 of 2) .« 2. «© « « « © © «325 
Chart NH. $BORTV2: ISAM RETRVE Open, 

Phase 2 (Part 2 of 2) . « « « « « « « «326 


Licensed Program - Property of IBM 


Direct Access (DA) files refer to files 
contained on DASD devices and processed by 
the Direct Access Method. Note that the 
processing DASD records and not to a type 
of file organization. 


DIREC 


ACCESS METHOD 


The Direct Access Method provides a 
flexible set of macro instructions for 
creating and maintaining a data file on a 
DASD device. This technique applies 
specifically to records organized ina 
random order, but it can also be used to 
process reccrds sequentially. The macro 
language offered by this data management 
method permits the user to load, read, 
write, update, add, or replace records ona 
DASD file. 


The Direct Access Method is an IOCS 
processing method processing method 
specifically designed to utilize the 
capabilities of direct access storage 
devices. This method provides the 
following facilities: 


e Processing of records organized in a 
random order. 


e Processing, in physical sequence, of a 
file of records stored by record key. 


e Utilizing track capacities. 
e Two referencing methods: 


1. Record ID (physical track and record 
address), 


2. Record KEY (control field of the 
logical record). 


e Multiple track searching beyond the 
specified track for resolving the key 
argument. 


e Providing a means of supplying the user 
with the Record Identifier (ID) of 
either the current record or the next 
record after a READ or a WRITE operation 
has been executed. 


The Direct Access Method is subject to the 
following restrictions: 


e Only unblocked records are processed. 


e Ne work area and only one I/O area can 


be specified for the file. 


e The user must supply either a track 
reference or a record identifier for 
every record read or written by logical 
IOCcS. 


DASD files processed by the Direct Access 
Method must be defined for logical IOCS by 
a DTFDA macro. If a DASD file is processed 
by physical IOCS in a manner similar to the 
Direct Access Method, the file must be 
defined by a DTFPH macro. 


Device independent support is provided in 
LIOCS by dynamically extending the user 
DTFDA into the virtual area within the user 
partition (see Figure 2), and by linking 
the user DTFDA to the device independent 
version of the logic module in the SVA 
(shared virtual area). The user must 
provide sufficient dynamically allocatable 
space in his partition for the device 
independent extension to the DTFDA table. 


The device independent versions of the 
logic module in the SVA are reenterable and 
therefore sharable between partitions. If 
the linkage to the original module is 
already coded read-only, the user supplied 
Save area is not used. 


The device independent versions of the 
logic modules in the SVA are supersets of 
the functions needed to process the DTFDA 
being opened. Supersetting of RPS and 
non-RPS logic modules is not supported. 


The CCB CCW address and the module 
linkage field in each DTFDA are modified to 
point to the DTFDA extension and the device 
independent version of the logic module in 
the SVA. Each DTFDA has two indicators set 
on by OPEN: one indicates that the DTF has 
been extended into the virtual area, the 
other indicates that the device supports 
RPS (if that is the case). 


The DTFDA extension contains a CCW build 
area necessary to construct channel 
programs. In addition, it contains a save 
area to allow reentrant imperative macro 
calls to the device independent version of 
the logic modules and to preserve DTFDA 
information to reestablish the original 
DTFDA at CLOSE time. The original DTFDA is 
used for all other information, except the 
channel progran. 


Direct Access Files 11 


DTFDA MACRO 


Whenever a file cf DASD records is 


processed by the Direct Access Method, the 


logical file must ke defined by a DTIFDA 
macro. This macro generates a partial DTF 
table to describe the characteristics of 
the file for lcgical IOCS as shown in 
Figure 1. The DIF table is completed by 
the channel program builder subroutine in 


12 LICCS Volume 3 DAM and ISAM 


Licensed Program - Property of IBM 


the DA logic module. This subroutine 
builds the channel program CCWs to process 
the file and inserts them into the DTFDA 
Functions Diagnosis Reference: LIOCS Yolume 
4 ). The number and specific nature of the 
CCWs varies imperative macros used with the 
file. See Figures 14 and 15 for a summary 
of the CCW chains needed to accomplish the 
function of a particular imperative macro. 
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|DTF Assembly 
| Label 


|&éFilename 


AS aa aa a aaa ac ac la 


Figure 1. 


{ Module 


| DSFCT Label [Bytes 
SS 


| IJICCB 
( 


IJIMOD 


TJISWI 


IJIFNM 


IJIDVTP 


IJIUNT 


IJIRPS 


IJIULB 


IJIUXT 


IJIRELPT 


TJTERC 
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| 0-15 | 
| (O-F) 
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20 
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21 
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| 
| 
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| 
| 
| 
| 
| 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
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22-28 | 
(16-1C) | 
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29 | 
(1D) | 
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| 
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| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| (1E-1F) 
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| 
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{33-35 
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| 
{36-39 
| (24-27) 


| 

| 40 
| (28) 
| 

| 


141-43 | 


| 
|Bits| 


SN OE Wh =| © 


~) 


DIFDA Table (Part 1 of 6) 


SOOT ES WD ww © 


| 
Function 








{Command Control Block 


(CCB). 


= Trailer labels 

sed by FREE macro 

= COBOL Open/Ignore option 

= Track hold option specified’ 
= DTF relocated by OPENR 

used 

= SPNUNB 

sed by CNTRL macro 


(an a ee Oe ee a | 
Oo 
ct 


Address of logic module. 


direct access 


DTF type for OPEN/CLOSE (X'22* = 

files). 

1 = Output; 0 = Input. 

1 = Verify option specified. 

1 = Search multiple track (SRCHM) specified. 
1 = WRITE AFTER or WRITE RZERO macro used. 

1 = IDLOC specified. 

1 = Undefined; 0 = FIXUNB, VARUNB, or SPNUNB 
1 = RELTYPE = DEC 

1 = End of file. 

Filename (DTF Name). 
{Device Type. 

1X*OO" = 2311 ¥'07" = 3350 

txX'OT! = 2314, 2319 X¥'O8' = 3340 general 
1X'O4" = 3330-1, 3330-2 X¥'09" = 3340 35MB 

= 3330-11 X'OA* = 3340 7OMB 


jx'ose 

| 
|Starting logical unit address of 
{containing the data file. 


[by the OPEN from EXTENT cards (can be initially 


| Zero) « 


| 
t used 


No 
1 = RPS device and RPS=YES in FOPT macro 
Not used 
1 = Extended DTF for RPS 


Address of user's label routine. 


jAddress of user's routine for processing EXTENT 


J information. 


{Pointer to relative address area: 
| &Filename.P_-_ &Filename 
ao 


{Address of a 2-byte field in which IOCS can store 


jthe error condition or status codes. 
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arene 
|DTF Assembly|Module 
( Label 





{IJITST 


IJIBPT 


IJICB2 
&Filename.Z |IJICCW 
IJIXMD 


IJIMSZ 


IJISPT 


IJITRK 


IJIRIC 


r 
! 


Figure 1. 


{DSECT Label|Bytes 
+--+ - + Se 
{Macro code switch for internal use: 





SETS CU ED GE CE EAD GES EA PID GD AD SD eS ED AOE 


(44-45 | 
| (2C-2D) | 
| 


146-47 

| (2E-2F) 
| , 
148-63 

| (30-3F) 
[64-71 

1 (40-47) 
( 

(72-75 

| (48-48) 
; 

176-77 

1 (4C-4D) 


78 
(4E) 


79 
(4F) 


80 
(50) 


81 
(51) 


82 
(52) 


83 
(53) 


84-85 


86-87 
(56-57) 


DIFDA Table (Part 2 of 6) 
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| 
| Bits| 


1x'0000! 
1X"0001! 
1X*0002' 
1X*0003! 
1X*0004" 
1x¥*0005" 


|Pointer 


| (&Filename.B) minus 32. 


i 
jControl 


| 
{Control 
i 


| 
| Channel 


1¥I 36(2) ,c*0! 


| 
{Maximum 
|BLKSIZE 
[ 
|Pointer 
}no READ 
| 
| Pointer 
}no READ 


| 
{Pointer 


jno WRITE ID issued. 


| Pointer 


[if no WRITE KEY issued. 


| Pointer 


[if no WRITE RZERO issued. 


{Pointer 


{if no WRITE AFTER issued. 


|Track constant: 


|Key_ length =_0 
{H*O* for 2311 
{H'O" for 2314/2319 
1H'135' for 3330 


[H'167" for 3340 H'*242" for 3340 
{H"°185" for 3350 H'267' for 3350 
| 

{23113 H*'61! 

12314723193 H*101° 

| 3330: H'*135! 

3340: H'167!* 

$3350: H'185° 
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| 


Function 








READ ID 
READ KEY 
WRITE ID 
WRITE KEY 
WRITE RZERO 
WRITE AFTER 


to channel program build area 


seek CCB. 


Seek CCW for overlap seek routine. 
program builder instruction: 
data length for FIYUNB or UNDEF records; 


for VARUNB or SPNUNB records. 


to READ ID string (Filename.0); x'00' if 
ID issued. 


to READ KEY string (Filename.1); xX'00' if 
KEY issued. 


to WRITE ID string (Filename.2); ¥'00' if 


to WRITE KEY string (Filename.3); X¥*'00° 


to WRITE RZERO string (Filename.4); xX'00! 


to WRITE AFTER string (Filename.5); xX'00! 


H'20' for 2311 
H'*45* for 2314/2319 
H'191" for 3330 


PE SR Lectin om Cem ei <a is i i ham ems ci cis i i Ses mmm n-ne ems as ie i i i as oie ads a oan eens 
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Se ———— 
[DIF Assembly|Module | | | | 
| Label {|DSECT Label|Bytes |Bits| Function { 
|----~ Sat See ne ne 5 SS = — | 
| {| IJILAT | 88 {| O |Not used. | 
| [ | (58) | 1 |1 = Wrong-length record. | 
| | | | 2 {1 = Non-data transfer error. | 
| | | | 3 |Not used. | 
| | | 1 4 {1 = No room found. | 
| | | {5-6 | Not used. | 
|. | | | 7 {1 = Record out of extent area. | 
| | | | | | 
i | | 89 | 0 |{1 = Data check in count area. [ 
| | | (59) {! 1 |1 = Track overrun. | 
| | | | 2 |1 = End of cylinder. | 
{ | | | 3 «1 = Data check when reading key or data. i 
] | | | 4 41 = No record found. | 
| | | |} 5 |1= End of file. | 
| { | {| 6 |{1 = End of volume. | 
| | | | 7 |Not used. | 
| | | ; | | 
] | IJILBTK {90-95 | |Label track address, YBCCHH, where X is the | 
| | | (SA-5F) | |volume sequence number of the device on which the| 
| | | | Jlabel track is located. | 
Go ie Se ee ees Ss oe Se aes a mn a a eee a scission ca cnc ines i menue cms ai aii es | 
This is the end of the common DTFDA table. 

The following section is included if UNDEF, AFTER, or RZERO is specified. 

Na eas ep ete cn arene eee 
|DTF Assembly|Module { 7 | | 
| Label |DSECT Label|Bytes |Bits| Function | 
|---— aa fn nen ot —— ff SS Sn nen mncrnmenene | 
j&6Filename.L |IJILST 196-143 | {Basic CCWs to build channel program i 
| I | (60-8F) | | (see Figure 9). | 
{ [ | [ : | 
( | 1144-183 |Basic CCWs for undefined length or formatting | 
] | | (90-B7) | {macros (see Figure 9). | 
| | | | | | 
| {IJIVIT 1184-185] JInstruction to give record length to user if | 
| | | (B8-BY) | {record length is undefined. (NOPR O if no { 
| { | | | RECSIZE specified.) | 
[ | | { ; [ 
| JIJTIFRU 1186-187] | Instruction to get record length from user if | 
[ |. | (BA-BB) | }record length is undefined. (NOPR 0 if no | 
| | | | JRECSIZE specified.) | 
| f i | | | 
{&Filename.F |IJIFLD 1188-192] {Work area (used for RO address - CCHHO). | 
| i / | (BC-CO) | [ | 
| | | | | | 
{&Filename.K |IJICNT {193-200 | |Work area (used for RO data field). | 
| | 1} (C1-C8) | | | 
{ | { ; | | 
|SFilename.c |IJICTS {201-208 |}Work area (included only for spanned or variable | 
[ | {| (C9-DO) | {records for record count field). | 
a a a ih ci cn ca ca Sk i a ins cs coca is Sa cis sais Sch c pe c ion <a cev cn be<cceos n an a c' m  em mso tbnmin inmnCei a | 


Figure 1.2 DIFDA Table (Part 3 of 6) 
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The channel program builder strings are generated following the DTFDA table, and 
preceding the channel program building area. (See Figures 9 and 10 for the channel 
program builder string to be used for each macro.) 

















[macro. If WRITE RZERO or WRITE AFTER is not 
|specified, the string is not generated. 


aes arene Seg ae a eee et ge ga eee ge Pe ee OT eR Re ng Ee ee ae ee ee ee oe ee 
{DTF Assembly|Mcdule | | | { 
| Label | DSECT | Bytes | Bits] Function | 
| | Label I | i l 
(= = ee ee | 
|S6Filename.0O | | Variable] |Channel program builder string for READ ID macro. | 
{ { | i |If READ ID is not specified, the string is not | 
; ( | i |generated. | 
{ i i ( l 
|&Filename.1 | | Variable | {Channel program builder string for READ KEY | 
[ | | | Jmacro. If READ KEY is not specified, the string | 
{ | { i jis not generated. { 
| | I [ | | 
(EFilename.2 | | Variable | {Channel program builder string for WRITE ID | 
| | [ | |[macro. If WRITE ID is not specified, the string | 
i | | | jis not generated. { 
l | | i | | 
{&Filename.3 | | Variable| {Channel program builder string for WRITE KEY | 
| [ | { j{macro. If WRITE KEY is not specified, the string] 
| { I | jis not generated. { 
i | | i | | 
|SFilename.4 | | Variable | {Channel program builder string for WRITE RZERO | 
{ | | i jmacro. If WRITE RZERO or WRITE AFTER is not | 
{ | [ | |specified, the string is not generated. i 
i | | | | | 
{&Filename.5 | | Variable | |Channel program builder strings for WRITE AFTER | 
i [ | I | 
[ i | | l 























Os Ss ses tee i see on-chip acm cp ts a i li lacs ils mpi i sl a i tu mii wl Splint pl ai nl i eea aiis abesi-anedaienadaacioainat | 
The following section contains the channel program build areas and varies in size. 

seme nee eee eee See Pe Rae RO aa PEL OTE DN PEO Te ns eee eee een eae 
{DTF Assembly |Module | | ; { 
] Label {DSECT Label |Bytes |Bits] Function | 
|----—— = SS SS SS 
|&Filename.B | | 0-7 | |Seek CCW that is generated at program assembly | 
( | | | {time and used by all channel programs. ] 
| | | i | | 
| | {Variable | jArea to build: ] 
[ | |. | | | 
| ; | i {1. Eight CCWs if AFTER is not specified. | 
{ ; | | | | 
| f | | }2. Eight CCWs if spanned or variable length | 
{ { | ; { records and AFTER=YES is specified. i 
| I | | l [ 
| | | { 13. Seven CCWs if undefined or fixed records and| 
| | { [ | AFTER=YES is specified. ' 
i | | | | i 
| | {Variable | [Area to build: | 
| l [ | l i 
| | | | !1. Eight CCWs if AFTER is not specified and | 
i { ; ! | VERIFY=YES is specified. | | 
{ | I I I | 
i | | | }2. Eight CCWs if spanned or variable length | 
| { | ; { records and AFTER=YES and VERIFY=YES are | 
{ | | [ specified. ] 
i | | | i 
l ( | { 13. Five CCWs if undefined or fixed records and | 
[ i I | | AFTER=YES and VERIFY=YES are specified. i 
i sscstacs cine ceca ribbon aces ase omer iii aca i oe a le ci eich me i i he ci die de te tel ca ee be ne ti i i ee | 











Figure 1. DIFDA Table (Part 4 of 6) 
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The following section is added for spanned records only. 














Ce ee a ee A eR A SN a SS A Seed Se Oy ee aly ee ae ge a eo es Gg ee gg ee 
{|DTF Assembly|Mcdule | { | | 
{ Label {| DSECT Label|Bytes |Bits| Function 
|(-— SS SS ——— SS eS SS ee 
| | | 8 bytes| [Count save area. 
[ | { 
; | | 8 bytes| |SEEKADR save area. 
| | | | | 7 
l | } 1 byte | 0 {1 = Relative addressing. 
; | | { 1 |1 = IJIGET switch on. 
| ; { { 2 {1 = Ignore hold switch on. 
{ ( | {| 3 |Reserved for use by DAMODV. 
| | | | 4 |1 = New volume SEEKADR. 
i | | {5-7 |Not used. 
| [ | | | 
| | | 1 byte | | Reserved. 
| { | i | 
; | | 2 bytes] |Record size. 
{ ( | | | 
| | 12 bytes| |Work area. 
| | | i I 
| {| 8 bytes| iControl word save area. 
or ees cc ee se rss Su coe Shem Ge ee res cr bus ern. ue mm cum emis ees ie i ms i om i sts eS i che ee | 








The following section is added to the DTFDA table if DSKXTNT (relative addressing) is 
specified. . 














Ge pg eg ee a gee a ee gt te gS ee ee ee eg ee eg ee, eee ee | ag eee et eee ae 
{|DTF Assembly|{Module | | | | 
| Label |DSECT Label|Bytes |Bits| | Function [ 
| —-—— Ot —— —_— | 
{&Filename.P | {3 bytes| {3xX'00' for padding. | 
; { | l | | 
{&Filename.I | {5 bytes | |IDLOC record area (bucket used by module). | 
l | | [ [ | 
{j&Filename.S | {8 bytes| |SEEKADR in form: M,B1,B2,C1,C2,H1,H2,R | 
| { (4 bytes | }DC A(&SEEKADR) | 
| | 14 bytes| {DC A(&IDLOC) | 
j { 18 bytes| {Work area for RELTYPE=DEC. | 
i i | ( { i 
{&6Filename.X | {4 bytes| |Save area for CCHH portion of actual DASD | 
| | | | j address. | 
| | | | I | i 
| | \4 bytes | jAlteration factor for C1 in SEEKADR (see bytes | 
| { | | {112-119) : | 
| | | | i | 
| | | | {2311: xX*00000001!' i 
H | | | {}2314, 2319: x'00000001! | 
i | ( | 13330: x'00001300! | 
| | | | 13340: x*'00000C00! | 
| | | | 13350: x'00001E00! | 
i | | | | | 
| | 14 bytes| JAlteration factor for C2 in SEEKADR (see bytes | 
| | | | 1112-119) : { 
| | | | l | 
j | f | 12311: xX*QOOOOO000A'! | 
| | { | (2314, 2319: x'00000014! | 
| | | | 13330: x*'00000013' | 
| { | | 13340: x'0000000C! | 
| | | | 13350: xtOQO00000TE! { 
lL. Ss cas ‘eens Sue ccc inc omelet sas ai sve amos aaieami came eimabonmessor aE ee a SO | 


Figure 1. DIFDA Table (Part 5 of 6) 
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a ee ee ee ——4 
[|DTF Assembly|Mcdule | | | 
Label |DSECT Label|Bytes | Bits] Function 
en nnn nn nnn nnn nnn nn nnn nnn nnn ee eee rr ranean 
{4 bytes | jJAlteration factor for H1 in SEEKADR (see bytes 
| { 112-119): 
{ | 
| | 
| {}2317: x'00000001' 
{ {}2314, 2319: xX*'00000001' 
| 13330: x*'00000001' 
| 13340: x*00000001' 
| 13350: x*'00000001' 
l 


| 

| Variable 
jto end 
jof DTF 
jtable 

| 


' 
a a a ee a PREPS CD CAPES CS RS STE LD EL ELIS DD | 


|DSKXTNT table composed of a variable number of 
|8-byte entries containing extent information 
Jin the following format: 


Bytes 0-2 TTT2 - cumulative number of tracks in 


the DSKXTNT table entries up to 
and including the current 


entry. 
3 M - volume sequence number. 
4 B - bin number (0 for disk 


devices). 


Bytes 5-7 TTT1 - relative track number of lower 


limit of this entry. 


JA 1-byte end-of-table indicator containing 


| X'FF® 
jtable. 


follows the last entry in the DSKXTNT 


Numbers in parentheses are displacements in hexadecimal notation. 


Figure 1. DIFDA Table (Part 6 of 6) 
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— << = SS ———— a 
{|DTF Assembly |Module { | : 
( Label |DSECT Label|Bytes |Bits| Function 

|---—— meemen Dmmoamanel ff OO occas Sent 
( | IJIXBLD { 0 | {CCW build area. 

( | | (0) | | 

{ | | { ; 

] | IJIXYSPTR | 176 | }Address of original channel progran. 
[ | | (BO) | | 

| ; | I | : 

{ {IJIXSVMP | 180 | jAddress of original logic module. 
i [ | (B4) | | 

| i I | 

] J{IJISAVA | 184 | |72-byte register save area. 

[ i | (B8) | I 

i | | | | 

] | | 266 | | Not used. 

[ i [| (170A) | | 

[ i | | | 

| JIJISECVO | 267 | | Sector work byte. 

{ I {| (108) | [ 

{ | { { [ 

| JIJISECV1 | 268 | {Sector work byte. 

[ { | (70C) | | 

( i | [ | 

i {IJISECV2 | 269 | |Sector work byte. 

[ ( | (10D) | [ ; 

i { l { | 

| {IJIXYSEC | 270 | {RPS CCW. 

| [ | (10E) | { 

{ | | | | 

jIJIXSSO | 278 | |RPS CCW. 

{ [ | (116) | | 

I [ | { | 

| jIJIXSSX | 286 | |RPS CCW. 

| [ | (11E) | i 

| | | { | 

| LJIXSSNF 294 | {RPS CCW. 

| | | (126) | | 

i | | ( { 

| }IJIXSTRG | 302 | JPESC byte string area. 

| i | (12E) | { 

{ { ( I [ 

| {IJIXSPT | 382 | {Displacement to strings. 

( ( | (17E) | | 

; | | | | 

| J IJIXMCYL | 390 | [Maximum cylinders per volume. 

| ; | (186) | | 

{ | | i | 

{ {| IJIXTFAC | 392 | |Tolerance factor. 

| [ | (188) | | oe 
| | | | | 

| {IJIFLG1 | 394 | |Flag byte. 

{ | [| (178A) | | 

{ | | | l 

| | TJIXUSTF | 395 | {Indicator needed to use tolerance factor. 
{ { | (18B) | [ 

| [ | i | 

\ { IJIFLG2 396 | {Flag byte 

l | | (78C) | | 

C... 





Numbers in parentheses are displacements in hexadecimal notation. 


Figure 2. 
DTFPH MACRO 


Figure 3 illustrates the ITF table 
generated by the DTIFPH macro when the 


parameters DEFVICE=xxxx and MOUNTED=ALL are 





Ee ee ae ne 





STAD CRS ED ica ces i es i a tc ge came e i on ane al 





Device Independent DTF Extension for DTFDA 


Specified in the macro operand. The table 
contains the information to define a DASD 

file for processing by physical IOCS, ina 
manner Similar to the Direct Access Method. 


If the device being opened has RPS 
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capability and the SYSGEN option RPS=YES 
has been specified, OPEN will set on bit 1 
in byte 32 of the DTF. If the user wishes 
to make use of the RPS feature of a device, 
he must provide the appropriate Read Sector 
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and Set Sector CCWs in his channel programs 
as is done in the Direct Access Method. 
(See the appropriate hardware manual for 
your device, for format of Sector CCWs and 
a write-up on Rotational Position Sensing.) 


SS SS SS a —| 
| Bytes {| Bits |Function | 
(== = SSS SS SS | 
(O-F) | | | 
{ | | 

16 (10) | 1X'08" indicates DIF relocated by OPENR. | 
| | 

17-19 i 13x'OO0! { 
(11-13) | | | 
( | | 

20 (14) | |DTF type (X'23"'). | 
| | | 

21 (15) | |Option codes. | 
| 0 41 = Output, 0 = Input. | 

{| 1-7 {Not Used. | 

( i | 

22-28 | |Filename. | 
(16-1C) | | | 
| i | 

29 (1D) | {Device type code: | 
| 1x'oo0' = 2311 | 

] ;X'O1! = 2314, 2319 | 

] tx*O4* = 3330-1, 3330-2 | 

1 1X'O5* = 3330-11 | 

{ jx'O7" = 3350 | 

| {X'O08*' = 3340 general | 

| }x'O9" = 3340 35MB 

i [X'OA* = 3340 70OMB. | 

| | | 

30-31 | {Logical unit address of first volume containing | 
(1E-1F) | Jthe file. | 
| | | 

32 (20) | 0 {Not Used. | 
{ 1 11 = Device supports RPS. { 

| 2 |1 = Version 3 DTF. | 

| 3-7 |Reserved for future use. | 

| { | 

33-35 { {Address of user label routine. | 
(21-23) | | | 
| | | 

36-39 | jAddress of user routine to process EXTENT | 
(24-27) | |information. | 
| Se ae ae Se a RR Pe er Ee ee TY es ee oemansaie pa a ee ee cgi amis Secs cha acchncane ne remmecicreee amsieomanel 

















Numbers in parentheses are displacements in hexadecimal notation. 


Figure 3. DIFPH Table for DAM Files 


REFERENCE METHOUDS ANT ALDRESSING SYSTEMS 


Each record read or written must be 
identified by providing the logical I0cS 
routines of the Direct Access Method with. 
two references: 


1. Track reference - location of the track 
within the pack. 


2. Record number (ID), or Record Key 
(control information) - position of the 
record on the track. 

The user can specify the track reference or 

record ID as either an actual physical DASD 
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address or as an address relative to the 
start of the file. If relative addressing 
is used, the address provided by the user 
has been converted to either a 4-byte 
hexadecimal or a 10-byte decimal address. 
Actual physical addresses are supplied as 
8-byte DASD addresses. Further details of 
the addressing systems are presented in the 
following discussion of reference methods. 


TRACK REFERENCE 


Before issuing a read or write instruction, 
the user must supply the proper track 
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identification in the track reference field 
in main storage. (This field is identified 
by the SEEKADR= rarameter specified in the 
DTFDA macro.) ‘The track identification can 
be expressed in one of three formats 
depending on the addressing system used. 


1. Actual physical addressing - the track 
identification is contained in the 
first seven bytes of the 8-byte track 


reference field (MBBCCHHR). 


PO ED CONSD AE EEE ED WED EE ED EE 


track identification is contained in 
the first three bytes of the 4-byte 
track reference field (TTTR). 


3- Relative addressing (RELTYPE=DEC) - the 
track identification is contained in 
the first eight zoned decimal bytes of 
the 10-byte track reference field 
(TTTTTTTTRR). 


The track reference selects the channel and 
unit on which the referenced track is 
found. 


RECORD ID 


Reference to a particular record can be 
made by supplying a specific number in the 
track reference field. This number (ID) 
refers to the consecutive position of the 
record on the given track; that is, the 
first data record on a track is number 1, 
the second is number 2, and SO on. 


The form in which the record ID is 
supplied in the track reference field also 
depends on the addressing system used. 


1. Actual physical addressing - the record 
ID is the last byte (R-byte) in the 
8-byte track reference field, 
(MBBCCHHR) « 


2. Relative addressing (RELTYPE=HEX) - the 
record ID is the last byte (R-byte) in 
the 4-byte track reference field 
(TTTR). 


3. Relative addressing (RELTYPE=DEC) - the 
record ID is the last two zoned decimal 
bytes (RR) in the 10-byte track 
reference field (TITTTTTTRR). 


When a READ or WRITE macro that searches 
for record ID is executed, logical I0cS 
refers to the track reference field to 
determine which record is requested by the 
program. The number in this field is 
compared with the corresponding field in 
the count areas of the DASD records. 


When a READ IL macro is executed, IOCS 
searches the specified track for the 
particular record. If the record is found, 
the key area (if present and defined by the 
KEYLEN= parameter in the DTFDA macro) and 





the data area of the record are transferred 
into the main storage I/O area. If the 
corresponding record ID (R portion of the 
count area on the track) is not found, a 
no-record-found indicator is placed in the 
user's error/status indicator. The WRITE 
ID operation is the same as the READ ID 
except a record is written instead of read. 


RECORD KEY 


'If the DASD records include key areas, the 


records can be identified by the control 
information contained in the key. Whenever 
this method of referencing is used, the 
problem program must supply the key of the 
desired record to logical IOCS before a 
READ or WRITE macro is issued. When a READ 
or WRITE macro is executed, IOCS searches 
the track identified by the track reference 
field for the desired key. The search is 
confined to one track unless multiple track 
search is specified by the user. (Refer to 
the section "Multiple Track Search".) 


If the desired key is not found on the 
track, IOCS posts a no record found 
indication in the user's error/status 
indicator. When the desired key is found, 
IocS reads the data area of the DASD record 
into main SEOrAgS if a READ KEY macro was 
issued. 


When a WRITE KEY macro is executed and 
the desired key is found, IOCS transfers 
the data in main storage to the data area 
of the DASD record. This replaces the 
information previously recorded in the data 
area. 


CONVERSION OF RELATIVE ADDRESSES 


When the record address supplied by the 
user in the track reference field (SEEKADR) 
is in relative address form, it must be. 
converted to an actual DASD address (CCHHR) 
before it can be handled by the routines of 
the DA logic modules. The Seek Overlap 
subroutine in the logic module performs the 
conversion. 


If the user wants to express the 
relative address as a 10-byte zoned decimal 
number (RELTYPE=DEC), the address is packed 
and converted to binary so that it takes 
the hexadecimal TITR form before conversion 
to an actual address. 


Conversion to an actual DASD address 
starts by comparing the TTT value given in 
the user-supplied relative address with the 
TTT2 value of each entry in the DSKXTNT 
table. (Refer to Figure 16 and to 
"Relative Addressing" under "Initialization 
and Termination" in this section of the 
manual.) The proper DSKXTNT entry is 
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reached when the TTT2 value of the entry 
exceeds the TTT value in the address. The 
M and B2 values from the table entry are 
inserted into the seek address, MBBCCHHR 
(B1 is always 0). The reconversion factor 
is calculated by subtracting the TTT1 value 
of the current extent entry from the TTT2 
value of the previous entry. The : 
reconversion factor is saved for 
reconversion of an actual address to a 
relative address if IDLOC is specified. 


The user's TIT value is then divided, in 
turn, by the three device-dependent 
alteratioh factors; C1, C2, and H1 (refer 
to Figure 17). The quotient after each 
divide operation is placed in the 
respective position in the seek address. 
For example; the quotient (after the TTT 
value is divided by the C1 alteration 
factor), is inserted in the first C byte of 
the seek address, MBBCCHHR. The remainder 
after each divide operaticn becomes the 
dividend for the next divide operation. 

The remainder after the final divide 
operation is the H2 value in the seek 
address, MBBCCHHR. The R byte of the 
actual seek address is identical to the R 
byte (or equivalent to the RR bytes if 
decimal relative addressing is used) in the 
TTTR relative address. 


If a record ID is returned to the user 
in relative address form after a READ or 
WRITE macro instruction is executed (IDLOC 
specified) , reconversion is accomplished by 
reversing the ccnversion process. Thus, 
the corresponding CCHH portions of the 
actual address are multiplied by the 
respective alteration factors and the 
reconversion factor is added to the result. 
Again, the R byte remains unmodified 
throughout the reconversion process. If 
the decimal form of relative addressing is 
specified, the TTTR hexadecimal form is 
further converted to the 10-byte zoned 
decimal form TITITTTTRR. 


MULTIPLE TRACK SEARCH 


The Direct Access READ KEY and WRITE KEY 
macro routines for processing DASD files 
normally search one track for the desired 
logical record. The user can specify a 
search of multiple tracks by including the 
DTFDA entry SRCHM (SeaRCH Multiple tracks) 
in the DTF.. When SRCHM is specified, Iocs 
begins the search for a specified record 
key on the track specified in the track. 
reference field. The search continues 
until one of two conditions occur: 


1. An equal compare occurs between the key 


argument (record key) in main storage 
and the key of the required record. 
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2. The end of the specified cylinder is 
reached. 


The search for multiple tracks continues 
through the cylinder, even though part of 
the cylinder may be assigned to a different 
logical file. This occurs with or without 
relative addressing. IOCS provides the 
user with an end of cylinder indicator when 
the search reaches the end of a cylinder. 
This indicator is placed into the 
error/status byte by IOcS. 


IDLOC 


The parameter IDLOC= is provided (in both 
the DTFDA and DAMOD or DAMODV macros) if 
the user wants to identify records after 
each READ or WRITE operation is complete. 
If specified, IDLOC identifies a main 
storage location where IOCS supplies the 
address (either actual or relative) of a 
DASD record. If spanned records are being 
processed, the ID returned will be that of 
the first segment of the record. The 
address returned in location IDLOC after a 
particular macro depends on a variety of 
conditions. See Figure 4 for a summary of 
these conditions and the addresses 
returned. When the problem program 
references a record by ID or KEY and does 
not specify the SRCHM (search multiple 
tracks) option, IOCS returns the ID of the 
next record under normal conditions. If 
the user is processing records sequentially 
on the basis of the next ID, he can check 
the ID supplied by IOCS against his file 
limits to determine when he has reached the 
end of his logical file. 


If the next record ID is returned to 
IDLOC, LIOCS searches for the ID of the 
next record on the specified cylinder. If 
an end of cylinder occurs before the next 
record is found, logical I0cS: 


1. Posts the end-of-cylinder bit in the 
error/status indicator, and 


2. Updates the address to head 0, record 1 
of the next cylinder, and posts this 
updated address in IDLOC. 


It is possible that there will be no record 
at this new address. In this case, logical 
IocS posts a no-record-found in the 
error/status indicator. Two ways to avoid 
this possibility: 


1. Initialize the volume by writing a 
dummy record at the beginning of each 
cylinder. : 


2. Add 1to the record address and read or 
write again, and continue this process 
until logical IOcS finds the desired 
record. 
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a ge ge ee eg ee ea ee eT aN ee a SGN EDS eee te NO CNET Cee AS ee ee Oe ee ee ae eS eh ep ea pe ee ee LE LS ee eg a ee 
| | SRCHM = YES | SRCHM # YES | | Seek 

{| Read/Write | -----—-—- - -—__--- ae ne es ee oe | | address 

| Function {Normal |No | *End . {Normal |No | *End | EOF | not in 

| {I/O |record|jof | I/O | record | of {record| extent 

{ {complete|found |cylinder|complete|found |cylinder|read | area 















































-—-----———--- 4} - +--+ —-- + +--+ --- 
|READ Filename, KEY jSame [Blank |Next | Next {Dummy |Next {Dummy | Dummy 

| jrecord | jrecord |record |record|record |record| record 

| ------_----------------—_—-+---—_- +--+ 4—-——{-—_--—_—__+--—-——++ 

{WRITE Filename,KEY {Same {Blank |Next | Next {Dummy |Next [Dummy | Dummy 

| |record | [record |record |record|record |[record| record 

| ---——---—-- - - - --  H nf ———+ a npn re ocean face eens 
{READ Filename, ID |Next {Dummy |Next | Next {Dummy |Next (Dummy | Dumny 

| |Irecord |record|record |record |record|record |record| record 

| ----_--—__---—- —--——— +} +}. - 4 +t 

|WRITE Filename,ID {Next {Dummy |Next | Next | Dummy |Next {Dummy | Dummy 

| |record |record|record |record |reccrd|record |record| record 

| ----~--—- YH YH aE! 1 SS ———— 
|WRITE Filename,AFTER|None |Dummy | Dummy | None {Dummy |{Dummy [Dummy | Dummy 

{ | jrecord|record | {record|record |record| record 

a a a a a | HF ft 

{WRITE Filename,RZERO]| None {}Dummy {Dummy | None {Dummy {Dummy {/Dummy | Dummy 

| | [record| record | }record|record |record] record 














| — a a Ne ee a a ee a SS SEEDERS UDR St SUES NAY SED 
{*If an end-of-cylinder condition coincides with either a physical or a logical end of 
| volume, the ID supplied is that of the first record on the next volume. If this 


number of tracks for the file. A dummy record is supplied when a physical end of 
volume is reached if actual DASD addressing is used. 


condition occurs on the last volume, the ID supplied in IDLOC is equal to the maxinum 


Dummy records: 


(HEX) 


{Actual addressing 
|Relative addressing 
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Figure 4. Kecord ID Returned to IDLOC 


CONTROL FIELD - SPANNED RECORDS 


Figure 5 illustrates the format of the 
8-byte control field associated with each 
Spanned record. The first four bytes are 
contain information supplied by LIOCS when 
the record is written. The second four 
word and contain segment type information, 
the user supplied record length, and the 
segment control flag. 


Normal Seqment;: The term normal segment 
refers to any segment of the kind described 
by the segment ccntrol flag. 


Null Segment: The term null segment refers 
to a special &-byte segment (control field 
only) that may ke written by a WRITE AFTER 
macro when the file is being created. A 
null segment is written as the last record 
on a volume and indicates that the next 
logical record is written on a new volume. 
Spanned records do not span volumes; that 
is, the first pcrtion of a logical record 


5 bytes (CCHHR), each containing ¥'FF* 
-- 4 bytes (TTTR), each containing X'FF' 
{Relative addressing (DEC) -- 10 bytes, each containing decimal 9 





L 





cannot exist on one volume and the 
remainder on another. 


ERROR/SSTATUS INDICATOR 


When processing records in a DASD 
environment, certain exceptional conditions 
must be handled within the progran. 

Because the method used for handling these 
exceptional conditions depends on the 
application and operating environment, the 
logical IOCS routines of the Direct Access 
Method provide the user with exception 
indicators. | 


The user must specify a symbolic name 
for the address of a 2-byte field where 
IOCS places the exceptional condition 
codes. The symbolic name is written by the 
user in the DTFDA entry ERRBYTE. When 
needed, IOCS sets one or more of the bits 
in this error/status indicator for the 
conditions illustrated in Figure 6. 
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Block Descriptor Word Segment Descriptor Word 


Segment Type Segment Control 
(Bit 0) | Flag (bits 6 and 7) 


Block Descriptor Word 


LL Record length including the 8- byte control 
field (2+ 4). 


RR = Used by the system. 


Segment Descriptor Word 


= Record length including the 4-byte segment 
descriptof (data length + 4). 


Segment Type: 


0 = Normal segment 
1 = Null segment 


f = Contains binary zeros except bits 6 and 7. 
Segment Control Flag: 
This segment is not followed or preceded by 
another segment; that is, a single contiguous 


segment contains the entire logical record. 


This segment is the first segment of a multi- 
segment logical record. 


This segment is the last segment of a multi- 
segment logical record. 


This segment is neither the first nor the last 
segment of a multisegment logical record:. 


r = Contains binary zeros. 





Figure 5. Spanned Record Control Field 
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{|Byte|Bit |Error/Status Indicator | 

| ---—+-—-—-—-—-+ —————— 

0 O {Not used. | 

| [ 

{| Wrong-length record | FIX 
| dat 
{fro 
lis 
{rec 
jof 
[ lon 
{rec 
J upd 
| 

| UND 
jfol 





0 


anh 


> 
wy 


ry 


rhi< 
| 


.e) 


| 








Figure 6. ErrorsStatus Indicator (Part 1 
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. greater than the maximum data size (BLKSIZE 


j 


Explanation 


UNB records: This bit is set on Whenever the 
a length or key length of a record differs 

m the original record. If an updated record 
Shorter than the original record, the updated 
ord is padded with binary zeros to the length 
the original record. If the updated record is 
ger than the original record, the original 

ord positions are filled and the rest of the 
ated record is truncated and lost. 


EF records: This bit is set on under the 
lowing conditions: 


When a READ is issued and the record is 


minus KEYLEN; or BLKSIZE minus the value of 
KEYLEN plus eight, if AFTER is used), a 
wrong-length error condition is given and the 
value returned -in the RECSIZE register is that 
of the actual record length. 


When a WRITE ID or KEY is issued and the 
record to be written is greater than the 
maximum data size, a wrong-length error 
condition is given and the record written is 
equal to that of the maximum data length. If 
the DASD record is larger than the maximum 
data size, the remainder of the record is 
padded with binary zeros. The value in the 
RECSIZE register is set egqual to that of the 
maximum data length... 


When a WRITE AFTER is issued and the record to 
be written is greater than the maximum data 
size, a wrong-length error condition is given 
and the record written is truncated to the 
maximum data length. The value in the RECSIZE 
register is set equal to that of the maxinum 
data length. 


UNB records: This bit is set on under the 
lowing conditions: 


When a READ is issued and the LL (data length 
+ 8) count of the record read is greater than 
the maximum value specified by the BLKSIZE= 
parameter in the DTFDA macro. 


When a WRITE ID or KEY macro is issued and the 
LL count is greater than the value specified 
by the BLKSIZE parameter in the DTFDA macro. 
The record is written with the low-order bytes 
truncated. 


When a WRITE AFTER macro is issued and the LL 
count is greater than the value specified by 
the BLKSIZE parameter in the DTFDA macro. The 
record is written with the low-order bytes 
truncated. 


L 
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[Byte|Bit |Error/Status Indicator | Explanation 


| ---—+ ---__++ -—--_---____--—__-_-—_ een SaaS 
| |SPNUNB records: This bit is set on under the 


}following conditions: 


: 




















When a READ macro is issued, the wrong-length 
record error indicator is set if the LL (data 
length + 8) count is larger than the value 
specified by the BLKSIZE parameter in the 
DTFDA macro. The number of data bytes read 
into the I/O area is equal to the value of 
BLKSIZE minus 8 bytes for the control words. 


When a WRITE ID or KEY macro is issued, the 
wrong-length record indicator is set if: 


1. The LL count for the record to be written 
exceeds the value specified by the BLKSIZE 
parameter in the DTFDA macro. 


2. The data length of the record to be written 
exceeds the data length of the original 
record. 


In either of the above cases the record is 
written with the low-order bytes truncated. 


The wrong-length record indicator is also set 
when the first segment encountered for the 
Original record is not type 00 or 01. In this 
case the no-record-found (bit 4 in byte 1) 
indicator is also set on and no portion of the 
new record is written. 


The wrong-length record indicator is set for 
multisegment records if any segment of the 
Original record encountered after the first 
segment is not type 11 or 10. In this case 
the remainder of the new record is not 
written. 


When a formatting WRITE AFTER macro is issued 
and the LL count for the record being written 
exceeds the value specified by the BLKSIZE 
parameter in the DTFDA macro. The record is 
written with the low-order bytes truncated. 


0 Non-data Transfer Error |The record in error was neither read nor written. 
{If ERREXT is specified and this bit is off (0), 
{transfer took place and the problem programmer 
{should check for other errors in the ERRBYTE 
j}field. 


| 
0 Not used. | 
| | 


0 No-room- found |The no-room-found indication is applicable only 
{when the formatting WRITE AFTER macro is used for 
ja file. If the bit is set on, IOCS has 
{determined that there is not enough room left to 
|write the record; consequently, the record is not 
|written. 

| 

0 5 |Not used. | 


Woe cae einen mein DET SEL LS PEELE LID SEL LOLEEP CLE CLE CME LEED LEI CRED CIEL EGET EEE PELE LP GMD ALES TEES LEE CET EEE LE OP EL ATES ELD OO aE CREAR ENED <TD OED NEDA A SAND SURED SAAD ASSL SD SRDS GIP AED DOD SA SD nema 


Beers 


Figure 6 Error/Status Indicator (Part 2 of 4) 
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eee 
|Byte|Bit |ErroryStatus Indicator | Explanation 
|---| ---- | —__-_-_- OH OOOO 
0 | 6 {Not used. | 

| 
7 |Record out of extent area |The relative address given is outside the extent 
Jarea of the file. No I/O activity has been 
{started and no other error indicators are set. 
| 


Data check in count area [This is an unrecoverable error. 





Track overrun {The number of bytes on the track exceeds the 
Jtheoretical capacity. (Will not occur when 
|VSE/Advanced Function macro instructions are 
J used.) 
| 

End-cf-cylinder {The end-of-cylinder indicator bit is set on when 
{SRCHM is specified for a READ or WRITE KEY and 
{the end-of-cylinder is reached before the record 
jis found (bit 4 of byte 1 is also turned on). If 
{IDLOC is also specified, certain conditions also 
jturn this bit on, possibly in conjunction with 
{the no-record-found indicator (bit 4 in byte 1). 
|For further information see IDLOC. 

} ; 
3 |Data check when reading {This is an unrecoverable error... 
|key or data | 
i [ 


No-record-found |The no-record-found indication is given when a 
{SEARCH ID or KEY is issued and the record is not 
j found. 


[ 

| 

| [ | 
| }If SRCHM=YES is specified, the end-of-cylinder 

| Jindicator (bit 2 in byte 1) is also set on. 

| | 

| |For SPNUNB records: the no-record-found . 

| jindicator is also set on if, when the identified 
| {record is found, the control flag in the first 

i [segment encountered is not 00 or 01. In this 

{ : _ |[case, the no-record-found indicator is set on in 
{ | {conjunction with the wrong-length-record 

‘| Jindicator (bit 1 of byte 0). 

| . | 

| End-of-file | |The end-of-file indication is applicable only 

; |when the record to be read has a data length of 
| jzero. The ID returned in IDLOC, if specified, is 
| Jhexadecimal FFFFF. The bit is set only after all 
| {the data records have been processed. For 

| jexample, in a file having n data records (record 
{ | jn+1 is the end-of-file record), the end-of-file 
|< jindicator is set on when the user reads the nt1 
| {record. This bit is also posted when an end of 
| jvolume marker is detected. It is the user's 

| Jresponsibility to determine if this bit means 

| {true EOF or end of volume on a SAM file. 


cn 


L 
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Figure €. ErroryStatus Indicator (Part 3 of 4) 
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{Byte|Bit |ErrorysStatus Indicator | 
SS 
i; 1 6 End-of-volume 
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Explanation 

















l 

= : I 

{The end-of-vclume indication is given in | 
Jconjunction with the end-of-cylinder indicator { 
| (bit 2 of byte 1). This bit is set on if the | 
jnext record ID (CCHHR where CC = 
|R = 


n+1, HH = 0, 
1) that is returned on an end-of-cylinder is | 
[higher than the volume address limit. The volume| 
jaddress limit is: cylinder 199, head 9, for a 
[2311; cylinder 199, head 19, for a 2314 or 2319; 
|cylinder 807, head 18 for 3330 model 113; cylinder 
1347 or 695, head 11, for a 3340 with 35MB or 70MB 
jrespectively; and cylinder 554, head 29 for a 


} 3350. 


| | 
1 {7 |Not used. | 
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Figure 6. 
CAPACITY RECORD (RZERO OR RO) 


The Direct Access Method utilizes the first 
record on each track, RO, to monitor the 
amount of available space on the track. 
This record is unique in that it does not 
contain a key area even though keys may be 
specified for the data records of the file. 


The Direct Access Method reads the data 
portion of the RO record into the 
Filename. K location in the DTF table. 
data portion has the following format: 


The 


@ 5-bytes - The identifier (CCHHR) of the 
last record written on the track. 


e 2-bytes - The number of unused bytes 
remaining on the track. 


e 1-byte - Flag for the Direct Access 
Method. 


WRITE RZERO MACRO 


The WRITE Filename,RZERO macro is used to 
erase a specified track. To do this, the 
programmer must supply the track address in 
the track-reference field identified by the 
SEEKADR= parameter of the DTFDA macro. The 
LIOCS locates the track, restores the 
number-of-bytes-remaining information in 
the data field of the RO record to the 
maximum capacity of the track, and erases 
the remainder of the track after the RO 
record. 
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{indicators are set on, 


| 

| 

i 

{ 

| 

[ 

! 

| Jcylinder 403, head 18 for a 3330 model 1 or 2; 
{ 

| 

| 

| 

| 

| 

| 

| 

| jis FFFFF. 


_LIocsS uses the eight bytes that 


jalternate track area. 


{If both end-of-cylinder and end-of-volume 


l 

| 

[ 

[ 

| 

| 

These limits allow for the reserved ] 
: | 

| 

i 

the ID returned in IDLOC | 
| 

| 

| 


Fe | 
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FORMATTING MACRO 


The formatting WRITE Filename,AFTER macro 
is used to write a record after the last 
current record on a specified track. To 
perform this function, the problem 
programmer must supply, in the location 
Specified by the SEEKADR= parameter of the 
DTFDA macro, the address of the track on 
which the new record is to be written. 
This form of the WRITE macro cannot return 
the ID of the new record in the IDLOC 


field. 


When the formatting WRITE AFTER macro is 
used to write FIXUNB or UNDEF records on a 
file, the first eight bytes of the user's 
I/O area must be reserved for LIOCS. 
Therefore, the blocksize (BLKSIZE) must be 
equal tos 


8 + (KEYLEN, if specified) + DL 


found in 
area after 
because 
are 
reserved for the record count field with 
the following format: 


The ID of the new record can be 
the first five bytes of the I/0 
the write operation is complete 


e 5-byte track ID (CCHHR) 


e 1-byte key length (KL) 


e 2-byte data length (DL) 


When the formatting WRITE AFTER macro is 
used to write VARUNB or SPNUNB records on a 
file, the first eight bytes of the user's 
I/O area contain the record control 
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information. (See Figure 5 for the format 
of the 8-byte ccntrol field.) Therefore, 
the blocksize (BLKSIZE) must be equal to: 


Maximum DL + 8 


The ID of the new record can be found in 
the DTF table at location Filename.C after 
the write operation is complete. This area 
of the DTF table is generated specifically 
for VARUNB and SPNUNB records and is used 
for the count field of the new record. [It 
has the following format: 


e 5-byte track ID (CCHHR) 
e 1-byte key length (KL) 


e 2-byte data length (DL) 


Note: For VARUNE and SPNUNB records, DL 


includes the &-byte control field. 


DAM LOGIC MODULES 


VSE/Advanced Functions Release 2 provides 
preassembled DAM superset logic modules 






































i 
| 
i 
| 
i 
| 
i 
| 
| 
[Describes record format : | 
| 
| 
i 
| 
[ 
| 
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| 
| 





that are loaded into the SVA during IPL. 
DAM file open processing automatically > 
links the DTFDA to the proper logic module; 
therefore, use of either the DAMOD or 
DAMODV macro, which was required in 
DOS/VSE, is not necessary. However, if 
either macro is submitted (and properly 
Specified), it will cause no compilation 
problems; it will simply be ignored by 
OPEN. 


DAM LOGIC MODULE MACROS 


Note: This discussion of the DAMOD and 
DAMODV macros and their operands pertains 
to programs written prior to VSE/Advanced 
Functions Release 2 and is for reference 


purposes only. 

Two macros generate independent logic 
modules needed to process records under the 
Direct Access Method. The macros are: 


e DAMOD - for fixed-length unblocked and 
undefined records. 


e DAMODV - for variable-length unblocked 
and spanned unblocked records. 


PEED SAD OTS SESS TPES SIS LE LS SEE OEDEED LSTTED I TTD 








| 

———=— , | 

|}When WRITE with the operand AFTER or RZERO is used. i 
——— | 
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pes 
{Operation |[|Cperand | Remarks 

Dp a ae FP ee ee ae eel ae 

|DAMOD or {AFTER=YES 

| DAMODV | -----—-----4-—-___-__--___-____-___-__ ____- ---____--___- 

| JERREXT=YES |Required if non-data transfer error conditions are to be 

i | jindicated in the ERRBYTE status bits ; 

| |—-------—— 

| {FECVD=YES |Required if support for sa a disk end-of- -v6lume records 
| | jis desired 

( |--— Sa ee 

i | HOLD=YES |Required if the track hold function is to be used 
—------—-+— oe 

| JIDLOC=YES |Required if IDLOC specified in DTFDA 

| ni i i eat acs oa Sa enc ae aa ier Seeds cis cel eh euicloes aien ila bla coe 

| |RDONLY=YES |Required if a read only module is to be generated 

i |---|} SS 

| |RECFORM= 

| {FIXUNB] | 

{| UNDEF| 

{ | VARUNB | | 

| {| SENUNB} | 

|——— -———_____-----_---— _— : 

| JRELTRK=YES |Required if the module is to process relative identifiers 

| | Jalong with physical identifiers 

| | ----__—__-_-—__-_+|-__——_—___-____---——— 

| | RPS=SVA {To assemble RPS logic modules 

[ SS 

| | SEPASMB=YES|If£f the module is assembled separately [ 
irc cnc nas ceiew seers is ci ama i nti cnn ia oem ais mice sis cs aero mvrans eenoena 


AFTER=YES: This operand generates a logic 
module that can perform a formating WRITE 
(count, key, and data). It performs the 


functicns required by WRITE filename, AFTER; _ 


and WRITE filename,RZFRO. The module also 
processes any files in which the AFTER 
operand is not specified in the DTF. 


ERREXT=YES: Include this operand if 
unrecoverable I/O errors (occurring before 
a data transfer takes place) are to be 
indicated to your program in the bytes 
named in the DTF ERRBYTE operand. 


FEOVD=YES: This operand is specified if 
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coding is to hardle end-of-volume records. 
It should be specified only if you are 
reading a file tuilt using DTIFSD and the 
FEOVD macro. 


HOLD=YFS: This operand is specified if the 
track hold function is: 


e specified at system generation time, and 
e included in the DIFDA macro, and 
e used when the file is referenced. 


IDLOC=YES: This operand generates a logic 
module that returns record identifier (ID) 
information to you. The module also 
processes any files in which the IDLOC 
operand is not specified in the DTF. 


RDONLY=YES: This operand causes a 
read-only module to be generated. Whenever 
this operand is spcified, any DTF used with 
the module must have the same operand. 


RECFORM= (FIXUNB|ISPNUNB{UNCEF|VARUNB): If 
UNDEF is specified, the logic module 
generated can handle both unblocked 
fixed-length and undefined records. 
operand is omitted or if FIXUNB is 
specified, the logic module generated can 
handle only fixed-length unblocked records. 
If SPNUNB is specified, the module can 
handle both format V (variable length) and 
spanned format records. If VARUNB is 
specified, the module can handle only 
format V records. 


If the 


RELTRK=YES: This operand generates a logic 
module that can process with both physical 
and relative identifiers. If the operand 
is omitted, the module can process only 
with physical identifiers. 


RPS=SVA: This cperand causes the RPS logic 
modules to be assembled. 


SEPASMB=YES: Include this operand only if: 
the module will ke assembled separately. 
This causes a CATALR card with the module 
name (standard or user-specified) to be 
punched ahead of the object deck and the 
module name to ke defined as an ENTRY point 
in the assembly. If the operand is 
omitted, the assembler assumes the module 
is being assembled with the problem progran 
and no CATALR card is punched. 


Standard DAMCD Names 


Each name begins with a 3-character prefix 
(IJI) and continues with a 5-character 
field corresponding to the options 
permitted in the generation of the module. 


DAMOD name = IJdIabcde 


a F RECFORM=FIXUNB 


B RECFORM=UNDEF (handles both 
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UNDEF and FIXUNB) 
S RECFORM=SPNUNB 
V RECFOR M=VA RUNB 


AFTER=YES, RPS=SVA omitted 
AFTER=YES, RPS=SVA 
neither is specified 


hom tl 
N = YP 


IDLOC=YES and FEOVD=YES 
IDLOC=YES 

FEOVD=YES 

neither is specified 


Novus N DH te 


ERREXT=YES and RELTRK=YES 
ERREXT=YES 

RELTRK=YES 

neither is specified 


HOLD=YES and RDONLY=YES 
HOLD=YES 

RDONLY=YES 

neither is specified 


NK ox 


The subsetting and supersetting allowed for 
DAMOD name is shown below. Five parameters 
allow supersetting. For example, the module 
IJIBAIZZ is a superset of the module with 
the name IJIFAZZZ. 


+++ + + 
I JIBAEESH Y 
FZMIPZ 
+ ZZ +t 
S + + W 
V EH Y 

R R 

Z 2 





+ Subsetting/supersetting permitted 








Notes: 


1.2 The module IJIBAEHW will cause assembly 
error message IPK154 TOO MANY ENTRY 
SYMBOLS. The valid entry points for 
this module total more than 100, which 
is the maximum for assembler language. 
Specify less parameters for DAMOD if 
you can. Otherwise, you must assemble 
your own module for your program. 


2- Your program can have only one DAMOD 
for fixed unblocked or undefined 
records and/or only one DAMOD for 
variable unblocked or spanned unblocked 
records; otherwise, duplicate name 
flagging occurs during assembly time. 


The modules generated by these macros 
include routines for the basic imperative 
macros READ and WRITE, which allow the user 
to read, write, update, add, or replace 
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records in the file. 


DIRECT ACCESS MODULES 


Under the Direct Access Method, an 
individual module provides the logic to 
support all the imperative macros used to 
process the file. In each case, the CNTRL, 
FREE, and WAITF macros have individual 
entries into the required module; that is, 
the logic for executing these macro 
functions is tailored to the specific 
macro. On the other hand, the input/output 
macros (READ and WRITE, with their 
variations) have a common entry to the 
respective module and a common logic in the 
moduie for perfcrming their functions. 


When the user issues a READ or WRITE 
macro instruction for a file, program 
control transfers to a logical IOCS routine 
that builds the proper channel program to 
accomplish the command. The IOCS routine 
issues an execute channel program that 
causes the I/O request to start. I0OCS then 
returns control to the problem program. A 
WAITF macro instruction must be issued by 
the user before the next READ or WRITE for 
the file. The WAITF macro routines test 
the status of the channel to ensure that 
the operation is complete. If the channel 
is busy, the routine waits for I/0 
completion. The WAITF macro routines 
supply indications of exceptional 
conditions to the problem program in the 
error/status indicator. At the completion 
of the I/O operaticn, control returns to 
the problem progran. 


unblocked or undefined record on a direct 
access file. 


with the Direct Access Method. 


has a unique expansion that results in a 
branch to a different entry point in the 
module. The entry point is at one of a 
series of exclusive OR instructions. The 
exclusive OR instructions cause a unique 
bit structure to be set up in a one-byte 
macro switch in the DTFDA table. From this 
macro switch, the module determines which 
macro has been issued. 


After the macro switch has been set, a 
test is made for undefined records or an 
end-of-file condition. If neither, the 
data length is set to the maximum length. 


If end of file, the data length is set to 
zero. If undefined and a read operation, 
the data length is set to the maximum. For 
a WRITE AFTER, WRITE KEY, or WRITE ID 
instruction, this routine gets the data 
length from the user, and determines 
whether it is greater than the maximum 
length. If so, it is set to maximum and 
the wrong-length-record bit is set on in 
the DTF table. The CCW data areas are then 
updated, and a branch and link is made to 
the IJISOVP subroutine, to calculate the 
physical address and to determine the 
symbolic unit. 


Next, this routine branches to the 
channel program builder to build the CCW 
chain for the macro that is being processed 
(refer to Figure 14 or 15). A test is then 
made for a WRITE AFTER or WRITE RZERO macro 
being processed. If neither of these, this 
routine issues the SVC 0 to perform a read 
or write operation. Control then returns 
to the problem progran. 


If the macro is a formatting macro 
(WRITE AFTER or WRITE RZERO), additional 
processing is necessary. If the macro is 
WRITE AFTER, RO is read and the capacity of 
the track is checked. If the space 
remaining on the track is not large enough 
for the record, the no-room-found bit is 
set on in the DTF and control returns to 
the problem program. 


If the track capacity is large enough, 
the routine calculates the space remaining 
on the track after the record is written 
and stores it in the RO write area. The 
channel program builder then builds a CCW 
chain to WRITE AFTER, updates the previous 
record ID by 1 in the RO write area, and 
tests for end of file. If end of file, the 
key and data length fields in the count 
field are set to zero. If not end of file, 
the key and data lengths of the record are 
inserted in the count field. An SVC 0 is 
then issued to write out the record. If 
track hold has been specified, an SVC 36 is 
issued to free the held track, and control 
returns to the problem program. 


If the macro issued is a WRITE RZERO, 
CCWs are modified, and a new RO record is 
written. If track hold has been specified, 
and the macro is READ,ID or READ,KEY, the 
track held is not freed by DAMOD. This 
must therefore be done in the user program 
with the FREE macro. Control then returns 
to the problem progran. 


Objective: To ensure that the transfer of a 


record has been completed, to supply the ID 


of a record to the user, if IDLOC is 
specified, and to post error conditions in 
the error/status indicator, if necessary. 
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this routine first issues an SVC 7 WAIT 
macro to ensure that the previous 1/0 
operation is complete. The second error 
byte from the CCB is placed in the error/ 
status indicator in the DTF table. 


If IDLOC is specified, IOCS supplies the 
user with the ID of a record after each 
READ or WRITE is completed (see Figure 4). 
If IDLOC is specified, a test is made for 
the type of macre issued. If a READ KEY or 
WRITE KEY macro, the routine determines if 
the search multiple track option (SRCHM) 
has been specified. If so, the ID returned 
to the user is the ID of current record 
transferred. 


If a READ or WRITE KEY macro has been 
issued without a search multiple track 
option, or a READ or WRITE ID macro has 
been issued, the IL returned to the user is 
the ID of the next record location, unless 
an end-of-cylinder condition is 
encountered. In this case, the ID returned 
is that of the first record of the next 
cylinder. If an end-of-volume condition is 
detected while updating the cylinder 
address, the end-of-volume bit is set in 
the error/status indicator in the DTF 
table, and a dummy record is returned in 
IDLOC. 


After the mcdule determines the contents 
of IDLOC, the error/status bytes are set in 
accordance with the conditions posted to 
the CCB by physical IOCS, and returned to 
the user. Then, if record length is 
undefined and a READ macro has been issued, 
the record length is calculated and 
returned to the user. This routine then 
restores the user's registers, resets the 
macro switch in the DTF table, and returns. 
contrcl to the problem program via linkage 
register 14. 


on a file. For a disk device, a seek 
operation is executed. 


Entry: From the CNTRL macro. 


Exit: To the prceblem program. 


Method: This routine saves the user's 
registers, and then branches and links to 
the IJISOVP subroutine, to calculate the 
physical address and to determine the 
symbolic unit. When the non-data transfer 
operation has been completed, the user's 
registers are restored, and control returns 
to the problem program via linkage register 
14. 
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DAMOD: 


Objective: To release a protected (held) 
track on a direct access storage device. 


Entry: From a FREE macro expansion in the 


problem program. 
Exit: To the problem program. 


Methods After storing the user's registers, 
the FREE routine branches to the 
seek-overlap subroutine. The subroutine 
determines the seek address of the held 
track from the seek CCW in the channel 
program build area. The module (M) number 
from the seek address calculates the 
symbolic unit address which is then 
inserted into the CCB. An SVC 36 is issued 
to free the held track. After completing 
the subroutine, the FREE routine restores 
the user's registers and returns control to 
the problem program. 


DAMODV: ut Macros 


Objective: To read or write a 
variable-length unblocked or a spanned 
unblocked record on a Direct Access file. 


Entry: From any Input/Output macro used 
with the Direct Access Method. 


Exit: To the problem program via linkage 


register 14. 


Method: Each of the six Input/Output macros 
has a unique expansion that results in a 
branch to a different entry point in the 
module. The entry point is to one of a 
series of exclusive OR instructions, which 
cause a unique bit pattern to be set up in 
a i-byte macro switch in the DTFDA table. 
The module determines which macro has been 
issued by testing this switch. 


READ Macro = VARUNB Records: The procedure 
followed for both the READ ID and the READ 
KEY macros is exactly the same. The only 
difference between the two macros is in the 
CCW chain built by the channel program 
builder subroutine, IJISBLD. Refer to 
Figure 14 or 15, Chart I for READ ID; Chart 
J for READ KEY. 


The byte count in the basic read data 
CCW (see Figure 11) is set equal to the 
length specified by the user in the 
BLKSIZE= parameter for the DTFDA macro. 
The IJISOVP subroutine is then entered to 
calculate the physical address and to. 
determine the symbolic unit. Next, the 
channel program builder subroutine is used 
to build the required channel program. The 
channel program is executed to read the 
record into the I/O area and control is 
returned to the problem program. 
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READ Macro - SPNUNB Records: The procedure 
followed for both the READ ID and the READ 
KEY macros is exactly the same. The only 
difference between the two macros is in the 
CCW chain built by the channel program 
builder subroutine, IJISBLD. See Figure 14 
or 15, Chart I for READ ID; Chart J for 
READ KEY. 


The byte count in the basic read data 
CCW (see Figure 11) is set equal to the 
length specified by the user in the 
BLKSIZE= parameter for the DTFDA macro. 
The IJISOVP is then entered to calculate 
the physical address and to determine the 
Symbolic unit. Next, the channel program 
builder subroutine is used to build the 
required channel program, which is then 
executed to start the read operation. If 
the segment descriptor for the record read 
indicates that it is a null segment or that 
the segment contains the entire logical 
record (segment type 00), control is 
returned to the problem progran. 


If the record read is segment type 01 
(the first segment of a multisegment record 
- at this point, segment types 10 or 11 
would be in errcer), which indicates that 
the rest of the logical record continues on 
another track, the CCW chain is modified 
and the seek address is updated to the next 
track. One of the modifications made to 
the READ ID CCW chain is the substituting 
of a TIC*+8 CCW for the RDKD CCW when 
KEYLEN is specified. This is done because 
the record key is associated only with the 
first segment of a mulitsegment record. 


The last eight bytes of the last portion 
of the record read into the I/O area are 
temporarily stored in the DTF table to 
allow the control words (block descriptor 
and segment descriptor) of the next segment 
to be read in along with the data (see 
Figure 7); these bytes are later restored 
after the contrcl word information for the 
next segment is processed. The modified 
channel program is reexecuted to read the 
next segment into the I/O area and its 
length is added to the combined length of | 
the previous segments. The combined total 
length is then compared to the BLKSIZE 
specified by the user. Should the combined 
length exceed the BLKSIZE, a 
wrong-length-record (WLR) indicator is set. 
If the segment just read is type 11 
(neither the first nor the last segment of 
a multisegment record), the procedure 
described in this paragraph is repeated. 


When the last segment (type 10) is read, 
the combined length of all the record 
segments is posted to the segment 
descriptor word in the I/O area and control 
is returned to the problem progran. 


WRITE Macro - VARUNB Records: The procedure 
followed for both the WRITE ID and the 
WRITE KEY macros is exactly the same. The 
only difference between the two macros is 
in the CCW chain built by the channel 


program builder subroutine, IJISBLD. See 
Figure 14 or 15, Chart K for WRITE ID and 
VERIFY, Chart L for WRITE ID and NO VERIFY, 
Chart M for WRITE KEY and VERIFY, and Chart 
N for WRITE KEY and NO VERIFY. 


The logical record length (11) is 
obtained from the user's segment descriptor 
word in the I/O area. The length specified 
for the record plus four bytes for the 
block descriptor word is then tested to see 
if it is greater than the maximum block 
length specified in the BLKSIZE= parameter 
of the DTFDA macro. If it is not greater 
than the BLKSIZE value, the byte count in 
the basic read data CCW (RDD CCW - Figure 
11) is set equal to the specified 11 + 4 
(that is, LL) value. If, on the other 
hand, the LL value is greater than the 
BLKSIZE value, the record capacity 
register(IJICPR) and the RDD CCW byte count 
are set equal to the BLKSIZE value and the 
wrong-length-record (WLR) indicator is set. 
This causes truncation of the record when 
it is written. 


The IJISOVP subroutine is entered to 
calculate the physical address and to 
determine the symbolic unit. Next, the 
channel program builder subroutine is used 
to build the required channel progran, 
which is then executed to write (and 
verify, if so specified) the record. 
Control is then returned to the problem 
program. If the track hold option has been 
specified, the track on which the record 
written resides is freed before control is 
returned. 


followed for both the WRITE ID and the 
WRITE KEY macros is exactly the same. The 
only difference between the two macros is 
in the CCW chain built by the channel 
program builder subroutine, IJISBLD. See 
Figure 14 or 15, Chart K for WRITE ID and 
VERIFY, Chart L for WRITE ID and NO VERIFY, 
Chart M for WRITE KEY and VERIFY, and to 
Chart N for WRITE KEY and NO VERIFY. 


The IJISOVP subroutine is entered to 
calculate the physical address and to 
determine the symbolic unit. Next, the 
channel program builder subroutine is used 
to build the first portion of the WRITE 
macro channel program. It is at this point 
that spanned record handling differs 
markedly from the handling of records of 
other formats. 


The first portion of the WRITE macro 
channel program (see Figure 14 or 15, 
Charts K or L for WRITE ID; Charts M or N 
for WRITE KEY) is actually a CCW chain to 
read the eight bytes of control information 
contained in the existing DASD record. | 
This read operation is necessary because, 
before a spanned record can be written, the 
arrangement of the record being replaced 
must be determined. That is, it must be 
known if the existing record is contained 
in a single DASD segment (type 00) or in 


Direct Access Files 33 






IOAREA1 
DTFDA Table 


SPNUNB Area 














Block 
Descriptor 


Segment 
Descriptor 


Segment 
Type Q1 








Last 8 data bytes of segment are temporarily 
stored to make room in the I/O area for the 
control words of the next segment. 


Figure 7. Multisegment Spanned Record 


multiple DASD segments and, if in multiple 
segments, the lengths of the individual 
segments must be known. Thus, for each 
segment of a multisegment spanned record, 
it is necessary to execute a read and a 
write operation. . 


If the segmert control flag in the 
segment descriptor of the existing record 
is type 00, the record to be written is 
handled in a manner similar to a normal 
variable-length record. That is, the 
channel program builder subroutine is 
entered to build the write CCW chain, the 
channel program is executed to write the 
new record, and control is returned to the 
problem program. 


If the segment control flag in the DASD 
segment read is type 01 (the first segment 
of a multisegment record), the channel 
program builder subroutine is entered to 
build the write CCW chain. The CCW chain 
is then modified according to the various 
options specified for the type of macro 
being used. Next, the length of the 
current DASD segment is determined from the 
control words obtained by the read 
operation and ccmpared to the 
user-specified length of the record to be 
written (LL). If the record length is 
less than the length of the current 
segment, the byte count in the write data 
(WRD) CCW is changed to the length of the 
record (if VERIFY is specified, the byte 


34 LICCS Volume 3 DAM and ISAM 


ant DATA LENGTH (D,_) 
First Segment +++ Next Segment —o 
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fecal Segment Type 01 
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Segment Control Words 
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BLKSIZE (LL) 











RECORD LENGTH 


Data Record 















Segment ; 


Segment 
Type 11 ' 


Type 10 







\ 
\ 
| a. Segment Type 11 or 10 





count in the verify read data CCW is. 
likewise changed). Otherwise, the CCW byte 
count remains equal to the length of the 
segment that can be accommodated on the 
track; that is, the length of the current 
segment. The channel program is then 
executed to write the segment. 


After the first segment of the record is 
written, the seek address is updated to the 
next track and a similar procedure is 
followed for the next segment(s) of the 
record. During the procedure for writing 
segments after the first segment, the last 
eight data bytes of the preceding segment 
are temporarily stored in the DTF table to 
allow the control words of the subsequent 
segment to be read into the I/O area (see 
Figure 7). The segment length obtained 
from the control words is used to set the 
byte count in the WRD CCW for all type 11 
segments. Each time a segment is written, 
its length is added to the combined lengths 
of the previously written segments, and the 
total is subtracted from the user-specified 
record length. The result of this | 
calculation is the number of bytes in the 
record that remain to be written. When the 
last segment (type 10) is written, this 
remainder is used to determine if the new 
record is larger or smaller than the 
Original record. If it is larger, a WLR 
indicator is set and the truncated 
remainder of the record is written; if 
smaller, the byte count in the WRD CCW is 
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reduced to the value necessary to write the 
remainder of the record. 


Because each segment of a multisegment 
Spanned record is handled as an individual 
physical DASD record, if the VERIFY option 
is specified, each segment is verified 
after it is written and before the next 
segment is read. Therefore, if VERIFY is 
used, three I/0 operations are required for 
each segment: read, write, and read. 


WRITE AFTER Bacro - VARUNE Records: The 
byte count of the basic read data CCW (see 
Figure 11) is set equal to the block length 
(LL) of the reccrd to be written, and the 
IJISOVP subroutine is entered to calculate 
the physical address and determine the 
symbolic unit. The channel program builder 
subroutine, IJISBLD, is then used to build 
the first pcrticn (read RZERO) of the 
channel program for the WRITE AFTER macro 
(see Figure 14 cr 15, Chart 0). 


Next, the ID (CCHHR) of the RO record on 
the specified track is set up in the DTF 
table, at location Filename.F, and the 
channel program is executed to read the 
8-byte data field of RO into the DTF table 
at location Filename.K. The data field of 
the RO record contains the following 
information: 


The CCHHR of the last record 
currently written on the track. 


Bytes 0-4; 


Bytes 5-6: The number of unused bytes 
currently remaining on the 
track. 

Byte 7: Not used by VSE/Advanced 


Functions. 


Using the information contained in bytes 5 
and 6 of the RO data field, a test is made 
to determine if sufficient room exists on 
the track to write the new record. If 
enough room is not available, the no-roon- 
found indicator is set in the DTF table and 
control is returned to the problem progran. 


If there is enough room on the track for 
the new record, the DASD space that remains 
after the new record is written is 
calculated to update the RO record. Next, 
the channel program builder subroutine is 
used to build the rest of the WRITE AFTER 
channel program, which includes the CCWs 
needed to write the updated RO record and 
the new record (and verify both, if so 
specified). 


The channel rfrogram is then executed and 
control is returned to the problem progran. 
If the track hold cption has been 
specified, the track is freed before 
control is returned. 


WRITE AFTER Macro - SPNUNB Records: The 
procedure followed for the WRITE AFTER 
macro for spanned records is the same as 
that followed for variable-length records 


up to the point of testing to determine if 
there is sufficient room on the specified 
track for the new record. For spanned 
records, the test is first made to 
determine if a minimum length (KEYLEN + 9) 
segment can be written in the space 
remaining on the track. If not, the 
no-room-found indicator is set in the DTF 
table and control is returned to the 
problem program. If the minimum length 
segment can fit, a second test determines 
if the entire record can be written on the 
track. If it can, the record is written in 
the manner described for variable-length 
records. 


If the entire record will not fit in the 
Space remaining on the specified track, the 
length of the portion that can fit is 
calculated and subtracted from the 
user-specified length of the record. The 
seek address is then updated to the next 
track. 


The RO record for the next track is read 
and checked for full availability; that is, 
if the track is not empty, a no-room-found 
indicator is set and control is returned to 
the problem program. The data field of the 
RQ record is tested to determine if all the 
remaining bytes of the record (plus eight 
bytes for control words) can be contained 
on the new track. If not, the length of 
the largest single record that fits on a 
track is subtracted from the number of 
record bytes remaining to be written, and 
the seek address is once again updated. 
This process is repeated until the point is 
reached where the entire logical record can 
be accommodated. If the track hold option 
has been specified, a hold is placed on all 
the tracks checked. 


The channel program builder subroutine 
is then used to build the second portion of 
the WRITE AFTER channel program, and the 
first segment of the record is written on 
the specified track. If KEYLEN is 
specified, the key is written with the 
first segment. The rest of the record is 
then written in as many segments as 
necessary, along with the RO records for 
each of the tracks involved. If the track 
hold option has been specified, the tracks 
are individually freed after the respective 
segment is written. 


If, during the checking of the series of 
tracks needed to write the record, the 
updated seek address indicates a change to 
a new volume, the RO records of all the 
tracks between the user-specified track and 
the first track on the new volume are 
rewritten with their respective data fields 
indicating no space available. Checking is 
reinitiated on the new volume and, when it 
is established that sufficient room is 
available on the new volume, the first 
segment (and, if specified, the record key) 
is written on the first track. The rest of 
the record is written on subsequent tracks 
in the normal manner. 
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WRITE RZERO Macro - VARUNE or SPNUNB 
Records: The IJISBLD subroutine is entered 
to build the channel program. The ID for 
the RO record (CCHHO) on the specified 
track is set up in locations Filename.F and 
Filename.K in the DTF table. The number of 
bytes remaining on the track is set equal 
to the full track capacity and inserted 
into bytes 5 and 6 of the RO data field 
(Filename.K). The channel program is then 
executed to erase the track and write the 
updated RO record, after which control is 
returned to the prcblem progran. 


on a file. For a disk device, a seek 
operation is executed. 


Entry: From the CNTRL macro. 
Exit: To the problem progran. 


Methods This routine saves the user's 
registers, and then branches and links to 
the IJISOVP subroutine, to calculate the 
physical address and to determine the 
symbolic unit. When the non-data transfer 
operation has been completed, the user's 
registers are restored, and control returns 
to the problem program via linkage register 
14. 


track on a direct access storage device. 


Entry: From a FREE macro expansion in the 


problem program. 


the FREE routine branches to the 
seek-overlap suktroutine. The subroutine 
determines the seek address of the held 
track from the seek CCW in the channel 
program build area. The module (M) number 
from the seek address calculates the 
symbolic unit address which is then | 
inserted into the CCB. An SVC 36 is issued 
to free the held track. After completing 
the sukroutine, the FREE routine restores 
the user's registers and returns control to 
the problem program. 


DAMODV: WAITF Macro, Charts BA 


BC 


record has been completed, to supply the ID 
of a record to the user, if IDLOC is 
specified, and to post error conditions in 
the error/status indicator, if necessary. 


é : 
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It 


ntry: From the WAITF macro. 


xit: To the problem program. 


itd 


Method: After saving the user's registers, 
this routine first issues an SVC 7 WAIT 
macro to ensure that the previous I/0 
operation is complete. The second error 
byte from the CCB is placed in the 
error/status indicator in the DTF table. 


If IDLOC is specified, IOCS supplies the 
user with the ID of a record after each 
READ or WRITE is completed (see Figure 4). 
If IDLOC is specified, a test is made for 
the type of macro issued. If a READ KEY or 
WRITE KEY macro, the routine determines if 
the search multiple track option (SRCHM) 
has been specified. If so, the ID returned 
to the user is the ID of the current record 
transferred. 


If a READ or WRITE KEY macro has been 
issued without a search multiple track 
Option, or a READ or WRITE ID macro has 
been issued, the ID returned to the user is 
the ID of the next record location, unless 
an end-of-cylinder condition is : : 
encountered. In this case, the ID returned 
is that of the first record of the next 
cylinder. If an end-of-volume condition is 
detected while updating the cylinder 
address, the end-of-volume bit is set in 
the error status indicator in the DTF 
table, and a dummy record is returned in 
IDLOC. 


After the module determines the contents 
of IDLOC, the error/status bytes are set in 
accordance with the conditions posted to 
the CCB by physical IoOcS, and returned to 
the user. Then, if record length is 
undefined and a READ macro has been issued, 
the record length is calculated and 
returned to the user. This routine then 
restores the user's registers, resets the 
macro switch in the DTF table, and returns 
control to the problem program via linkage 
register 14. 


9 
e 


Oly 


Objectives To construct a channel program 


in accordance with the processing macro 
issued in the problem progran. 


Notes Figures 14 and 15 provide a summary 
of the channel programs built to process 
DASD records by the Direct Access Method. 


Entry: From a direct access logic module 


(either DAMOD or DAMODV) via a branch and 
link instruction. | 


Exit: To the calling routine. 
Method: To perform direct access 


processing, many different channel 
programs, varying in length from 5 to 17 
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CCWs, are needed (see Figures 14 and 15). 
The many CCWs required can be built from 11 
basic CCWs by modifying command codes 
and/or flag bytes. Of these 11 CCWs, 5 are 
required for initial file loading. The 
other 6 are needed for normal file 
maintenance processing. TIC CCWs are built 
directly from storage addresses. 


For each channel program that is built, 
a string of descriptor bytes are generated 
in the DTF takle at program assembly time. 
The content of the string depends on the 
imperative macre issued by the problem 
program to access the file. There is one 
descriptor byte for each CCW in the channel 
program. This descriptor byte is divided 
into three subfields, which perform the 
functions illustrated by Figure 8. 





i Bee Re ey a Be ag tg ee ee a eS Se Ce EP Se ee ee 
{ = = | 
{ Bit {| 0112 3 4145 67 | { 
| = [ | 
{ Field | Af B | Cc | | 
| cs ces ain ce Se ee a es eco | 
{ l 
| Field Az: References the command code. | 
| | 
{ Field B: A relative pointer to select] 
| cne of the 11 basic CCWs | 
| (see Figure 9). | 
l [ 
| Field C: Further defines the command | 
| code, and modifies the flag | 
i byte as required. i 
Cs ee er eee ace aa ae Ga ce este iat encase ve ene arcane ened 
Figure 8. DAM Descriptor Byte 


Because the first CCW in a direct access 
method channel program must be a seek 





command, the seek CCW is generated at 
program assembly time as the first CCW in 
the CCW build area, and is never modified. 
As each channel program is requested, the 
channel program builder subroutine is 
called to build the remainder of the CCW 
chain. 


Before entering this subroutine, the 
logic module uses the macro switch to 
determine the address of the string of 
descriptor bytes for the macro issued (see 
Figures 9 and 10). After pointers are set 
to the current descriptor byte and the CCW 
build area, the subroutine isolates the 
relative pointer to the basic CCW needed 
(see Figure 11) and tests to determine if 
the CCW is to be a Transfer In Channel 
(TIC). Figure 11 shows the basic CCWs used 
to build channel programs. | 


If fields A and C of the descriptor byte 
are zero, the CCW is to be a TIC. Field B 
determines the address of the CCW to which 
control is to be transferred. This address 
and the TIC command code are stored in the 
TIC CCW (see Figure 12). If the end of the 
descriptor string has not been reached, the 
subroutine returns to build the next CCW; 
otherwise, control returns to the calling 
routine. 


If the CCW is not a TIC, Field B 
determines which of the basic CCWs is moved 
to the build area. Fields A and C of the 
descriptor byte are tested to see which 
fields in the CCW, if any, are to be 
modified (see Figure 12). A test is then 
made for the end of the descriptor string. 
If the end has not been reached, the 
routine returns to build the next CCW in 
the chain; otherwise, control returns to 
the calling routine. 
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WYST DUe NYG € SWNTOA SDIIT 


°6 eanbty 


KEY LEN 
IDLOC 
KEYLEN, IDLOC 


READ KEY No options 


SRCHM 
IDLOC 
SRCHM, IDLOC 


WRITE 1D No options 
(No VERIFY)*} KEYLEN 


IDLOC 
KEYLEN, IDLOC 


WRITE ID No options 
(VERIFY) KEY LEN 


IDLOC 
KEYLEN, IDLOC 


WRITE KEY No options 
(No VERIFY) | SRCHM 


IDLOC 
SRCHM, IDLOC 


DC X'871814' 
DC X'87182C' 
DC X'8718979E' 
DC X'8718AF9E' 


DC X'8F1814' 

DC X'A718881814' 
DC X'8F18979E' 

DC X'A7189A881014' 


DC X'871895' 
DC X'8718AD' 
DC X'8718919E' 
DC X'8718A99E' 


DC X'871891871815' 
DC X'8718A987182D' 
DC X'87189187181 19E' 
DC X'8718A98718299E' 


DC X'8F1895' 

DC X'A718881895' 
DC X'8F18919E' 

DC X'A7189A881095' 


DC X'C718BF14' 
DC X'C718BF2C' 
DC X'C719BF129C' 
DC X'C718BF2A9C' 


DC X'BF8F1014' 

DC X'A718B8881014' 
DC X'BF8F10129C' 
DC X'A718B8881014' 


DC X'871895' 
DC X'8718AD' 
DC X'8718939C' 
DC X'8718AB9C' 


DC X'871893871815' 
DC X'8718AB87182D' 
DC X'8718938718139C' 
DC X'8718AB87182B9C ' 


DC X'8F1895' 

DC X'A718881895' 
DC X'8F18939C' 

DC X'A718B8881095' 


DC X‘'871816' 

DC X'87182A16' 
DC X'8718129E' 
DC X'87182A129E' 


DC X'A7188F1816' 
DC X'A718881816' 
DC X'A7188F18129E' 
DC X'A7189A881016' 


DC X'871895' 

DC X'8718AB95' 
DC X'8718919E' 
DC X'8718AB919E' 


DC X'871891871815' 

DC X'8718AB9187182B15' 
DC X'8718918718119E' 

DC X'8718AB9187182B1 19E' 


DC X'A7188F1895' 
DC X'A718881895' 
DC X'A7188F 1891 9E' 
DC X'A7189A881 095' 


READ ID No options 


DC X'871816' 

DC X'87182A16' 
DC X'8718129E' 
DC X'87182A129E' 


DC X'A7180A1816' 
DC X'A7188A1816' 
DC X'A7180A18129E' 
DC X'A7189A8A1016' 


DC X'871814871895' 

DC X'8718148718AB95' 
DC X'87181 4871891 9E' 
DC X'8718148718AB919E' 


DC X'87181 4871891871815" 

DC X'87181 48718AB9187182B15' 
DC X'87181 487189187181 19E' 

DC X'8718148718AB9187182B119E' 


DC X'A7180A18140A1895' 

DC X'A7189A8A10148A1895' 
DC X'A7180A18140A 1891 9E' 
DC X'A7189A8A101 4BA1895' 


zioddns sd¥ 3ynoYATM SHUTI3ZS Tep[tng weitborg TeuueyD yYa 


DC X'8F18938F1815' DC X'A7188F18910A1815' DC X'A7180A18140A18910A1815' 

(VERIFY) SRCHM | DC X'A718881891 8F1815' DC X'A7188818938F 1815' DC X'A7188818910A1815' DC X'A7189A8A10148A18910A1815' 
IDLOC DC X'8F18918F18119E' DC X'8F18938F18139C' DC X'A7188F18910A18119E' | DC X'A7180A181 40A18910A18119E' 
SRCHM,IDLOC | DC X'A7189A8810918F1815' | DC X'A718B88810938F1815' | DC X'A7189A8810910A1815' | DC X'A7189A8A101 48A18910A1815' 


WRITE KEY No options DC X'8F18918F1815' 


Macros WRITE AFTER and WRITE RZERO use the same strings. If AFTER is not specified in the DTFDA macro, the strings are not generated. 
If AFTER is specified, these strings are generated for all record formats: 


DC X'C718D752C718B5' WRITE RZERO 
DC X'C71834' READ RZERO 


And one of the following strings: 


No VERIFY DC X'C718B18718CD' No options DC X'C718B18718CB95' 
KEYLEN DC X'C718B18718CBAB95' 


VERIFY DC X'C718B18718C9C7183187184D' No options DC X'C718B18718CB91C 7183187184815" 
KEYLEN DC X'C718B18718CBAB91C7183187184B2B15' 





One string for each macro to be used is generated, dependent upon the options specified in the DIFDA macro. 


* Indicates the operation used in the example given of the Channel Program Builder. 


WdI JO ARtedord - weihbord pesuadtt 
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| Macro | Option FIXUNB | UNDEF VARUNB . SPUNB 


DC X'58871895' 


READ ID No options 
KEYLEN 

IDLOC 
KEYLEN,IDLOC 
READ KEY | No options 
SRCHM 
IDLOC 
SRCHM, IDLOC 


WRITE ID No options 
(No VERIFY)* | KEYLEN 
IDLOC 
KEYLEN,IDLOC 


WRITE ID 
(VERIFY) 


No options 
KEYLEN 

IDLOC 
KEYLEN,IDLOC 


WRITE KEY | No options 

(No VERIFY) | SRCHM 
IDLOC 
SRCHM, IDLOC 


WRITE KEY 
(VERIFY) 


No options 
SRCHM 

IDLOC 
SRCHM, IDLOC 


X'588718AD' 
X'588718919E' 
X'588718A99E ' 


X'8F 1814! 

X '48A71888181 4! 
X'8F18979E! 

X '48A7189A881014! 


X'58871814' | 
X'5887182C ' 
X'588718979E ' 
X '588718AF9E' 


X'58871891 5887181 5' 

X '588718A95887182D ' 
X'58871891 5887181 19E' 
X'588718A9588718299E ' 


X'8F1895' 

X '48A718881895' 
X'BFI8919E' 

X '48A7189A881095' 


X'48C718D752C718B5' 
X'48A718881891 68588F 181 5' 
X'8F 1891 68588F18119E' 

X '48A7189A881 091 68588F 181 5' 


Macros WRITE AFTER and WRITE RZERO use the same strings. 


& 


If AFTER is specified, these strings are generated for all record formats: 


DC X'48C718D752C 718B5' 
DC X'48C71834' 


And one of the following 


strings: 
No VERIFY 


VERIFY 


WRITE RZERO 
READ RZERO 


DC X'48C718B18718CD' 


DC X'C718BF14° 


| DC X'C718BF2C' 


DC X'C718BF129C ' 
DC X'C718BF2A9C' 


X'BF8F1014' 
X'48A718B8881014' 
X 'BF8F10129C ' 

X '48A718B8881014' 


X'871895' 
X'8718AD' 
X'8718939C ' 
X'8718AB9C ' 


X'8718936858871 815' 

X '8718AB685887182D' 
X'87189368588718139C ' 
X'8718AB6858871 82B9C ' 


X'8F1895' 
X'48A718881895' 


X'8F18939C ' 
X'48A718B8881095' 


X '8F189368588F 1815' 
X '48A71888189368588F 1815' 
X '8F189368588F 181393' 


X '48A718B888109368588F 1815! 


If AFTER is not specified in the DTFDA macro, the strings are not generated. 


DC X'48C718B18718C9C7183187184D ' 


One string for each macro to be used. is generated, dependent upon the options specified in the DTFDA macro. 


* Indicates the operation used in the example given of the Channel Program Builder. 


DC X'871816' 

DC X'87182A16! 
DC X'8718128E' 
‘DC X'87182A129E! 


X'487A188F1816' 
X '48A718881816' 
X '48A7188F18129E' 
X '48A7189A881016' 


X'871895' 

X '8718AB95' 
X'8718919E' 
X'8718AB919E ' 


X'8718916858871815' 

X '8718AB91 6858871 82B15' 

X '871891 685887181 19E ' 
X'8718AB91 685887182B1 19E' 


X'48A7188F1895' 

X '48A718881895' 
DC X'48A7188F1895' 
DC X'48A7189A881095' 


DC X'48A7188F189168580A1815' 
DC X'48A718881891 68580A1815' 


DC X'48A7188F 1891 68580A18119E ' 
DC X'48A7189A881091 68580A1815' 


DC X'871816' 
DC X'87182A16' 


DC X'8718129E' 


X'87182A129E ' 


© X'48A7180A1816' 
X'48A7188A1816' 
X'48A7180A18129E' 
X '48A7189A8A1016' 


X '8718977858871895' 

X '87189778588718AB95' 

X '87189778588718AB919E ' 
X '8718977858871 8AB919E ' 


X '871897785887189158871815' 

X '8718977858871 8AB9 1 58871 82B15' 
X:'871897785887189 1 5887181 19E' 

X '8718977858871 8AB9 1 5887182B119E' 


X '48A7180A 189778580A 1895 ' 
X '48A7189A8A 109778588A 1895' 
X '48A7180A189778580A 18919E' 


DC X"48A7189A8A 109778588A 1895! 


DC X'48A7180A189778580A 1891580A1815' 

DC X'48A7189A8A109778588A 1891 580A 1815! 
DC X'48A7180A189778580A 1 891 580A 18119E' 
DC X'48A7189A8A109778588A 1891 580A 1815! 


No options DC X'48C718B18718CB95' 


KEYLEN 


DC X'48C718B18718CBAB95' 


No options DC X'48C718B18718CB91C7183187184B15' 


KEYLEN 


DC X'48C718B18718CBAB91C7183187184B2B15' 
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——— Se —  — —— 
{Field B| Basic CCW | Function | 
ene a = rc ee a sapere es See ee REET 
{0000 1X'31",6SEEKADR+3,X' 40! ,5 {Search identifier equal using the | 
| | jaddress specified in the user's | 
| | jtrack-reference field. | 
| | | | 
| {X'31',&Filename. S+3,X'40',5 |If relative addressing is used. | 
Goes sb aussie ete ee a En cn cD A D-DD A DP PU ic a AD a a a ae exsn-ne ean tesa a GunaPtanNDcAD i stead | 
j0001 |X"'29",KEYARG,X*40',Key length |Search key equal for key specified | 
{ | |by user in KEYARG field. | 
(=== Se een eeemennennmenemeemenmement | 
10010 {X¥'06",&IOARFA+16,X'4O',Data length j|Read data into I/O area (FIXUNB and | 
] | {UNDEF records). | 
{ | : i | 
| {X*06',&IOAREA,X'40',BLKSIZE j|Read data into I/O area (VARUNB and | 
| | {SPNUNB records) . | 
{(---—-—— =a OOO eee i a 
{0011 [X¥"'12'*,sIDLOcC,x'40!',5 jRead count (CCHHR) into IDLOC. | 
[ { | | 
| {X'12',&Filename.1I,X¥'40!,5 {Read count (CCHHR) into work area in| 
| | |DTF takle if relative addressing is | 
( | jused. | 
A eee yn ee ee a 
10100 {X' 29", 6SEEKADR+3,X'40' ,4 |Search home address equal using the | 
j | jaddress specified in the user's { 
| i jtrack-reference field. | 
i { | 
| {X'39',€Filename.S,¥'40',4 {If relative addressing is used. | 
|----—— Se SS —| 
(0101 |X'OE*, ETOAREA+8,X'4O',Key and Data length |Read key and data into I/O area | 
| | | (FIXUNB and UNDEF records). | 
i | | ae | 
| {X'OE*',&KEYARG,X'CO',Key length °° |Read key into user's KEYARG field | 
| | {| (VARUNB and SPNUNB records). | 
i SS SS ee Sn nn | 
10110 {xX'OE€*,&Filename.K,¥'40! ,8 {Read RO data into work area in DTF | 
!table. 
2 a ee —— | 
}0111 {X¥'12',&Filename.K,X'40! ,5 | Read RO count into work in DTF | 
| | |table. 1 
| ----—-——+| ---- --- -- nn aan | 
11000 {X'31',&Filename.F,¥'40!',5 |Search identifier equal using the | 
| | jaddress specified in the 5-byte work] 
| i Jarea in the DTF table. { 
(= = Se eee | 
11001 (|X'1E',&IOAREA,X*'40',Count, Key, and Data |Read count, key, and data into I/O | 
| j length jarea (FIXUNB and UNDEF records). | 
[ | | | 
| {X'1E',&Filename.c,¥'c0!',8 |Read count (CCHHRK DD) into work | 
| | jarea in DTF table (SPNUNB records). | 
|---—— ae ce et a tn me ah == — a | 
{1010 {X'11",&Filename. B+32,X'40',Length of the |Control erase of track. | 
| | largest single record that fits ona { | | 
{ {track. | | 
aa a a a i acces vs les ea ees ec nlc cece Sa aes ui emaciated a le a cisiclannall 


Figure 11.. Basic CCWs for DAM Channel Program Builder 
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a ee pee ee ee we Ne ee aie ee Ee IF CT ge a fa ee a RM es BES RN eae ee RN AY ee ee ey eee 
{Field A| Field B | Field C {Meaning i 
Se ——— ee ee ee ee l 
} 1 ini ntnengytfd4|i1i{Basic CCW not modified. f 
| -—---—-—+--——+—- -+-—-—__ +--+ - +--+ —-++-- Se = ae Cape, ——| 
; 1 ininitingwnyo yo {| oO {Modify command code to multiple-track operation. | 
| -—--———-—- + ——--—- + -—-—- 4 -——- + - 44 YH Yt nnn nn nnn | 
; 1 (Ni Nt_NEN { O f O | 1 {Modify command code in write operation. | 
| ----——--——-+---4+-—-—- +--+ YH 1 t - SS SS SS | 
i 1 int nyenytun yo yd 0 {Modify command code to multitrack, set SLI flag on.| 
|----—— ——+-—-—-+--—-+-——- + +-—__-_ +--+ --+-- a ee rn | 
i; 1 i Nt Nt NEN { O [ 1 4 1 [Modify command code to write, set SLI flag on. | | 
| -———-—-——-+-——-—-+——-+———-+-—_+-—_-+---+-——-+-- SS SS 
; 1 inti niytnyen yt | 0 | O {Modify command code to multitrack, set CC flag off.| 
(=f fH —— ———= —_——--—-———-—— | 
| 1 Ii ntintnyetnyet to dj 1 {Modify command code to write, set CC flag off. | 
{ -———— ff YH 1H = = 
} 1 inintnyent1{1y io jModify command code to multitrack, set CC flag off, | 


| I of | | | [| | SLI flag on. | 
ahaa Cana, ancuiun, Cnmerca eas (pecan oaciateae: aan! fang 
















































































i oO i ntintntwnyeo yo yd jSet SKIP flag on in CCW. | 
| -—--————-—-+----+-—-4-—-- +--+ HS SO > ee 
| 0 | intinytunietunyeo ft | 0 ySet SLI flag on in CCW. | 
{ ———--—--—_} ——--—- +--+ -—--—-+ -——- + -—-—-_}-——- +--+ ---- ee enemies | 
| 0 i Nini{tuniytunyetoyt it 1éiySet SLI and SKIP flag on in CCW. | 
== ———— +--+ ——- } 1 YH OS rrr naan | 
| 0 ini nt nenyt¢ O04 O [Set cC flag off in CCW. ] 
| —~-——-—-—+-—--—+-—-—- +--+ - +--+ 1-H —— == | 
| 0 inti nyt~nentt4oidr 1i{Set cc flag off, SKIP flag on in CCW. | 
| ----—-———-+-—--—-—- +--+ -——--—- +--+ — +--+ + -- = = re ee mrenen moeen | 
1 oO (NUE N{UNIN E114 0 fSet CC flag off, SLI flag on in CCW. | 
| -~—-——— |} ——- 4} -—- —- 4 YH YH SOO SS SS rn | 
{| oO qtnenengenytdttddidio1ijset cc flag off, SLI and SKIP flag on in CCW. | 
| ——- = fH YH ee =| 
i; O ;oyoytodoyoyo yoyo ijric to *-32 | 
{ ———————-+- ——-— +--+} -——- +--+ 1 1 Ss enema | 
{ O i o7y;oyoyti{toryo yo i yrire to *-24 : { 
| --——_--+----+-—-—- +--+ ——- +--+ + ---++ ———— eee | 
i 0 (o7;oqtty?oyoytoy o yrire to *-16 | 
| --—-—-—--+-—-_- +--+ -——- +--+ 1-H OO a | 
i; oO ;+oy}ottdtypdtytoyo yo frie to *-8 | 
mn rn enema f 
| 0 {jortfoejfo yoyo yy o {Tre to *-0 | 
|-----— —+——-+-——-t+-—- SS eee 
| 0- i oj4tdttojydfto yoy oyri¢c to *+8 | 
{ —+——— +} ——— f--—}} ——- +--+ -———-_ +--+ en emcee | 
; oO (or#ttety~otyoyoiyo yric to *+16 | 
mmm nn re ane ane | 
| O 1o1dtttyttoypo iyo rie to *+24 : | 
| mn nn rn rt re renner earn maneneee | 
{ 0 i1410%47yoroOoOyq4yo'to y Oo YLIc to *4+32 { 
Coo ae sos Seas ace ees Ser cin ei ce i com ass ts en ston aaa wsesicaan oes oc assis ein ames estas eet din vie cms =o en Si ease lives Sm es een ree Sen n-ne ry nin ces oem ciemvnimanagila te oseceshaincimn-seet smear sain 








Bit 0 1 2 3 4 5 6 7 


Note; NNNN = bits 1-4 of the descriptor byte and is one of the 11-bit combinations shown 


in Figure 11 under the column heading Field B. This field contains the relative pointer 
to the kasic CCW (see Figure 11). | 


CC - Command Chaining 
SLI - Suppress Length Indicator 
SKIP - Suppress Transfer of Information to storage. 


Figure 12. DAM Channel Program Descriptor Bytes 
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| ed SA TA SSS aa a Ra A a aa | 
| Descriptor | | | 
{| Byte {CCW Built |Meaning | { 
(SS 
{ {X'07',&SSEEKADR+1,X'00',6|Seek to the address specified in the user's track | 
| . | | | reference field. 3 ( 

































































i a a renner | 
| x's7* (X'31", SSEEKADR+3,X'40',5|Search identifier equal to the address specified in| 
| | Jjthe user's track reference field. | 
eS SS | 
; x'1ée8 1X'OE*',Pointer to *-8 {TIC to ¥*-8 { 
Sf a eee ee ——— oS = = SS 
| x'93t 1X'OS* ,.€IOAREA+16,7'60', |Write the data portion of the record | 
| |Data length 3 | from the IOAREA. { 
<< eS Sa ee ———— <<< <= | 
(| x'9ct  4xX'12',§IDLOc,x'00!,5 {Read the count field into IDLOC. { 
he ee ap aaa aegis eee ee en a ee eee 
Figure 13. Example of DAM Channel Program for a WRITE ID Macro 
The following discussion describes how the modification of the basic CCW. 
DAM channel program builder constructs a | Therefore, the second CCW (the first 
channel program for the given example. being the Seek CCW) in the channel 
| | program CCW chain is an unmodified 
Example: Write an undefined record. Search Identifier Equal CCW, 
referenced by IL in the location specified ¥'31" ,ESEEKADR+3,¥'4O',5 (see Figure 
by the user's track-reference field, and 13). : 
return the corresponding track record 
identifier (CCHHR) in IDLOC (option). 2. X18" (00011000): Because both the A 
3 and C fields are all zeros (a 
Figure 13 illustrates the CCWs needed characteristic of a descriptor byte 
for the complete channel program to used to generate a .TIC CCW), the second 
accomplish this operation. In all, five descriptor byte in the string generates 
CCWs are required. The first CCW (seek) is a TIC CCW for the third CCW in the 
generated at assembly time and the channel program. Figure 10 illustrates 
remaining four CCWs are built using the that a descriptor byte of this kind 
string of descrirtor bytes included as part with a B-field = 0011 supplies the CCW, 
of the DTF table for the WRITE ID macro TIC to * - 8 (see Figure 13 for 
(see Figure 9 or 10). The descriptor generated CCW). 
string for the WRITE ID macro is: | 
X¥'8718939C!. 3. X93" (10010011): The B-field = 0010 
in this descriptor byte indicates that 
Except for the Seek CCW that is the next CCW in the channel program 
generated for any channel program at chain will be the third basic CCW (see 
assembly time and never modified, each pair Figure 11). Because the A-field = 1 
of hexadecimal characters (descriptor byte) and the C-field = 011, Figure 12 shows 
corresponds to one CCW. Thus, X'87! that the command code is modified to a 
corresponds to the CCW to Search Identifier WRITE and that the SLI (Suppress Length 
Equal as illustrated in part 1 of the Indicator) bit is turned on. 


explanation that follows. 
4. xX*'9C* (10011100): The B-field = 0011 


The CCW chain is generated from the in the last descriptor byte indicates 
descriptor string in this order: that the last CCW in the chain will be 
the fourth basic CCW in Figure 11, Read 
1. X*'87* (10000111): Figure 11 - Count into IDLOC. A descriptor byte 
illustrates that the CCW for a with an A-field = 1 and a C-field = 100 
descriptor byte with a B-field = 0000 indicates that the command code is 
is a Search Identifier Equal CCW. modified for a multitrack operation and 
Figure 12 further illustrates that a that the command chaining bit is turned 
descriptor byte with an A-field = 1 and off to signify the end of the channel 


a C-field = 111 performs no program (see Figure 12). 


42 LIOCS Volume 3 DAM and ISAM 


SeL[Tqd ssaooy }OeITd 


en 


“tL oanbti 


(tL FO L 34ed) Faoddns Say ynoyzytm suerborg Teuueyd wd 





DESCRIPTOR BYTES 








MACRO 


READ Filename, ID 





UNDEF 








GENERATED 
CCW CHAIN 


X'31', FilenameF , X'40', 5 ISRCHIDE 
X'08',*-8 TIC 
X'12', FilenameK , X'40', 8 IRDCNT 
X'0E', IOAREAI +a, X'60', Ky +D, iRDKD 


l 
X'92', ,IDLOC, X'20',5 (RDID 











ESCRIPTOR STRIN 
POINTER 


FIXUNB 


VARUNB/ 
SPNUNB 


YES 





! 


| 
X'31', SEEKADR+3, X'40', 5 ISRCHIDE 


X'08', *-8 lic 
{ 
X'0E', IOAREAI +4, X'40', K, +DLIRDKD 
i] 


X'92', IDLOC, X'20', 5 IRDID 
! 








X'31', FilenameF, X'40', 5 
X'08',*-8 
X'12', FilenameK, X'40', 8 IROCNT 


X'0E', IOAREAI +a, X'20', Ky +Di ,RDKD 














UNDEF 


YES 


X'31', FilenameF, X'40',5 
X'08', *=8 . 
X'12', FilenameK, X'40',8 


X'06', IOAREAI+K,, X'60', Dy, 





X'92' IDLOC, X'20',5 


X'31', SEEKADR+3, X'40', 5 


X'08',*-8 





CHART A 





VARUNB/ 
SPNUNB 











NOTES: 





1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY THE 
FOLLOWING SEEK CCW: 


X'07!, SEEKADR+1 , X'00" 6 


3. IF BLKSIZE = Ki, +D, THEN 4 =0 
IF BLKSIZE >K, +D,; THEN 4 =8 


FIXUNB 





X'3].!, SEEKADR+3, X'40',5 
X'08',*- 8 
X'06', IOAREA1+K, , X'40',D, 


X'92', IDLOC, X'20',5 


X'31', FilenameF, X'40', 5 
X'08',*~8 
X'12', FilenameK, X'40',8 


X'06", IOAREAI+K, , X'20', Dy 


X'31', SEEKADR+3, X'40', 5 


X'08',*=-8 


X'06', JOAREAI 4K, ,X'00',D 


L 
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DESCRIPTOR BYTES 


MACRO 


READ Filename, KEY 





_ .S 
<> 


GENERATED 
CCW CHAIN 


X'39', SEEKADDR +3, X'40', 4 
X'08',*-8 

X'92', FilenameK , X'40',8 
X'AI',KEYARG, X'40', Ky 
X'08', *-16 


X'06', LOAREAI +K, ,X'20', Dy 





NO 


i SRCHHAE 
ie 
;RDCNT 
ISRCHKE 
TIC 


;RDD 











YES 


FIXUNB 


VARUNB/ 
SPNUNB 








| . 
X'06', IOAREAI+K; ,X'00',Dy_!RD 








X'39', SEEKADR+3, X'40', 4 






X'08', *¥-8 






X'92', FilenameK, X'40',8 





X'A9', KEYARG , X'40', Ky SRCHKE 
| 


X'08', *-16 Tic 







i] 
X'06', IOAREAI+K,,X'20',D__ | RDD 








NO 


X'39', SEEKADR+3, X'40', 4 ISRCHHAE 


X'08', *=8 ITIC 
X'92', IDLOC, X'60', 5 IRDID 
X'A9', KEYARG, X'40', Ky 'SRCHKE 
X'08', *=-16 TIC 








DESCRIPTOR STRING 
POINTER 


NO 





X'12', FilenameK , X'40',8 
X'29', KEYARG, X'40', KL 
X'08', *-16 


X'06', IOAREAI +K, -X'60", 


X'92' IDLOC, X'20', 5 


X'39', SEEKADR+3, X'40', 4 
X'08', *-8 
X'AD , KEYARG , X'40', Ky 
X'08', *-8 


X'06', IOAREAT+K , X'00', Dy 


CHART B 


D 


L 





1SRCHKE 


i 


iTIC 


;RDD 
i 





NOTES: 


1. SHADED AREAS = - ASSEMBLY TIME 
_UNSHADED AREAS - EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 


X'07', SEEKADR+1, X'00', 6 


FIXUNB 


| X'29', KEYARG, X'40', Ky 


X'08', *-8 
X'06', JOAREAI+K, , X'40', Dy 


X'92', IDLOC, X'20', 5 





X'12', FilenameK, X'40',8 


X'29', KEYARG, X'40', Kr 


X'08', *-16 


X'06', IOAREA] +K, ,X'20!, Dr 





X'29', KEYARG , X'40', Ky 
X'08', *-8 


X'06', IOAREAI+K, , X'00', D 


L’ L 
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DESCRIPTOR BYTES 





MACRO 


WRITE Filename, ID 


UNDEF 





YES 





GENERATED 
CCW CHAIN 


X'31', SEEKADR +3, X'40', 5 SRCHIDE 
1 
X'08', *-8 TIC 


4 


X'0D', IOAREAI +a, X'70',K, , +D \WRKD 


L 
I 
X'31', SEEKADR +3, X'40', 5 jSRCHID 
: I 
X'08', *-8 {TIC 
I 
X'0E', IOAREAI +a, X'70',K, , +Dy 1RDKD 


X'92' IDLOC, X'20', 5 jRDID 















NO YES 





X'31', SEEKADR +3, X'40', 5 
X'08', *=8 ITIC 

X'0D', JOAREAI +4, X'70", Ky +D, }WRKD 
X'31', SEEKADR +3, X'40!,, 5 
X'08',*-8 ITIC 


! 
X'OE', JOAREATI +a, X'30', Ky +Dy ‘RDKD 


NOTES: 
DESCRIPTOR STRING : 1. SHADED AREAS — - ASSEMBLY TIME 
POINTER UNSHADED AREAS - EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 


X'07', SEEKADR+1 , X'00', 6 


3. IF BLKSIZE = KL+ DL THEN 4 =0 
IF BLKSIZE >KL+ DL THEN A= 8 


YES 





FIXUNB UNDEF 





FIXUNB 





VARUNB/ 
SPNUNB 









NO YES IDLOC 


Specified | 





X'31', SEEKADR +3, X'40', 5 , SRCHIDE X'31', SEEKADR+3, X'40', 5 X'31', SEEKADR+3, X'40', 5 


| 
X'08', *-8 {TIC X'08', *-8 X'08', *=8 


I 
X'0D',IOAREAI +a, X'50', Ky +D, 1WRKD X'05', LOAREAI+K; ,X'70', Dy X'05', LOAREA1+K; , X'50", Dy. 
' 


X'31', SEEKADR +3, X'40', 5 ISRCHIDE X'31', SEEKADR+3, X'40', 5 X'31', SEEKADR+3, X'40', 5 
| 


X'08', *-8 ‘TIC X'08', *~8 X'08!, #8 


‘X'06', JOAREAI+K, , X'70', Dy 


X'0E', IOAREA] +4,X'50', Ky +D, RDKD X'06', IOAREAT+K; +X'50', Dy 


X'92', IDLOC, X'20', 5 X'92', IDLOC, X'20', 5 X'92', IDLOC, X'20',5 


{ 
X'31', SEEKADR +3, X'40', 5 iSRCHIDE X'31', SEEKADR+3, X'40', 5 
I 


X'08', *-8 TIC X'08', *=8 
' ' 


X'0D', IOAREAT +a, X'50', K, +D, 'WRKD X'05', IOAREAI+K, ,X'70', D 





L’ 
X'31', SEEKADR+3, X'40', 5 


L 


' 
'SRCHIDE X'31', SEEKADR +3, X'40', 5 


X'08', *-8 X'08', *=8 


X'0E', IOAREAI +a, X'10', Ky +D, IRDKD X'06', IOAREAI +K, ,X'30',D) 





CHART C 


NO 








X'31', SEEKADR+3, X'40', 5 
X'08', *-8 


X'05', IOAREAT+K, , X'50',D 


L¢ 
X'31', SEEKADR#+3, X'40', 5 


L 


X'08', *-8 


X'06', JOAREAI +K, ,X'10", D, 
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FROM 


HA 
MACRO c C Ry NOTES: 


WRITE Filename, D (Continued ) 1. SHADED AREAS - ASSEMBLY TIME 


UNSHADED AREAS - EXECUTE TIME 


No Verify 


2. ALL CCW CHAINS ARE PRECEDED 
BY THE FOLLOWING SEEK CCW 


X'07', SEEKADR+1 , X'00',6 





YES NO 3. IF BLKSIZE = KL+DL THEN a =0 
IF BLKSIZE >KL+DL THEN a =8 
UNDEF FIXUNB UNDEF FIXUNB 









VARUNB/ 
SPNUNB 


VARUNB/ 
SPNUNB 





YES NO YES NO YES NO YES NO 





GENERATED 
. CCW CHAIN 


1 
X'31', SEEKADR+3, X'40!, 5 X'31', SEEKADR#+3, X'40', 5 ISRCHIDE X'31', SEEKADR+3, X'40', 5 X'31', SEEKADR#3, X'40', 5 
4 I 


X'08', *=-8 X'08', *-8 X'08', *-8 X'08', *-8 


X'0D',LOAREAI +a, X'50', K, +D 


X'0D',IOAREAI +a, X'70', Ky +D), 1WRKD 
i 


1 
iWRKD X'05' JOAREAI+K; , X'70', Dy X'05', JOAREAT+K, , X'50', Dy. 
t 


Lr 
X'92', IDLOC, X'20', 5 ;RDID 


DESCRIPTOR BYTES 





X'92', IDLOC, X'20',5 iRDID X'92', IDLOC, X'20',5 X'92', IDLOC, X'20', 5 





687) |X'31", SEEKADR#3, X'40!,5 'SRCHIDE | X'31', SEEKADR#3, X'40',5 ! SRCHIDE X'31', SEEKADR#3, X'40', 5 X'31", SEEKADR+3, X'40",5 
a 
X'08', *-8 ITIC 
1 
X'0D',JOAREAI +4,X'10', Ky +Dy !WRKD 


ee ! 
118 | X'08', *-8 TIC X'08', *-8 X'08', *-8 


: I 
FAD} X'0D', IOAREAI +4, X'30', Ky +D, |WRKD 





'X'05', IOAREA1 +K, ,X'30', Dp X'05', IOAREAI+K; , X'10', Dy_ 





CHART D 
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MACRO 


WRITE Filename,KEY 





. NOTES: 


1. SHADED AREA — ASSEMBLY TIME 
UNSHADED AREA — EXECUTE TIME 





X'07', SEEKADR+1,X‘00',6 


2. ALL CCW CHAINS ARE PRECEDED BY THE FOLLOWING SEEK CCW 
>» we 


YES 





UNDEF S\_FIXUNB UNDEF FIXUNB 





VARUNB/SPNUNB VARUNB/SPNUNB 


WarI jo Azyzedorg - werborg pasuadtt 


YES “0. téet > YES ¥ YES , YES 





GENERATED CCW CHAIN 











X'39’, SEEKADR+3, X'40',4 | SRCHHAE 
x'08',*-8 ITIC 
X‘92’, FILENAME.K,X‘40',8 , RDID 


X'29',KEYARG,X'40,K, | SRCHKE 


X'29",KEYARG,X’40",K | SRCHKE 


X'39,SEEKADR+3,X'40',4 | SRCHHAE 
X'08’,*-8 ; TIC 
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DESCRIPTOR BYTES 










X‘08',*-8 





X'29", KEY ARG,X‘60',Ky 


X'06",IOAREA1+K, ,X‘40',D,_ 


ISRCHKE 


\TIc 


|RDD 


X'08’,*-8 





X‘08',*-8 


X‘08',*-8 


X’08',*-8 


X'29',KEYARG,X'40',Ky_ 


‘| X‘'39’, SEEKADR+3,X‘40',4 


X’AS' ,.KEYARG,X’40,K, 


X‘05',JOAREA1+K , ,X‘70',Dy_ 
X'29', KEYARG,X’60',K,_ 


X'06', JOAREA1+K, ,X’40’,Dy_ 


| SRCHKE 


Tic 


X'06', JOAREAI+K, ,X'10',D,_ 1 RDD 


| SRCHHAE 
ItIc 

| SRCHKE 
Tic 
1WRD 
|SRCHKE 
ITIC 


!RDD 





X'06',JOAREA1+K, ,X’70’",D,_ | RDD 


X'92',|IDLOC,X'20’,5 


X‘39’ SEEKADR+3,X‘40',4 


X‘'08',*-8 


X’AQ’, KEY ARG,X‘40’,K)_ 


X’'08',*-8 


X‘05’, JOAREA1+K, ,X‘50’,D,_ 
-X'29', KEYARG,X‘40',K,_ 


X‘08’,*-8 


X'06" JOAREAI+K, ,X‘10",Dy_ 


CHART E 


| RDID 
| 


| SRCHHAE 
jric 

| SRCHKE 
Itic 

| WRD 

| SRCHKE 
Iric 

| RDD 








X’92',IDLOC,X'‘60',5 RDID x‘08’,*-8 | TIC x‘08',*-8 Te 
X'AO’, KEYARG,X'40',K ISRCHKE X'AQ', KEY ARG,X‘40'.K, | SRCHKE X05’ IOAREA1+K,,X’70",D, | WRD X'05’ IOAREA1+K, ,X‘50’,D, |WRD 
X'08’,*-16 Tic X'08',*-16 TIC X’'29',KEYARG,X’40',Ky_ | SRCHKE X'29',KEYARG,X‘40",K,_ | SRCHKE 
X05’ JOAREA1+K, ,X‘70',D; | WRD X‘05' JOAREA1+K, ,X’50",D,_ 1 WRD x‘08’,*-8 ltic x'08',*-8 Itic 


X'06' JOAREA1+K, ,X’50',D, | RDD 


X‘92’, IDLOC,X‘20',5 I RDID 
| 


ae | 


X'29",KEYARG,X’407,K, ) SRCHKE 
X'08',*-8 | TIC 
X'05' JOAREAI+K, ,x‘70',D, |WRD 
X'29', KEYARG,X’60',K | SRCHKE 
X'08',*-8 | TIC 
X'06’, |OAREA1+K,,x‘40',D, | RDD 


| 





X'29", KEY ARG,X’40',K,_ | SRCHKE 
X‘08',*-8 , TIC 
X‘05’,JOAREA1+K, ,X‘50’,D,; | WRD 


X'29', KEYARG,X’40,K) : SRCHKE 
x'08',*-8 |TIC 
X'06', JOAREA1+K, ,X’10',D, 1 RDD 

| 
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DESCRIPTOR BYTES 











X'39', SEEKADR+3, X'40', 4 


X'08', *-8 


X'92', FILENAME. K,X‘'40',8 


X'AG'", KEYARG, X'40', KL 


X'08', *-16 


X'05', LOAREAT+ KL, X'30', DL 


MACRO 


WRITE Filename, KEY (Continued) 





UNDEF 





NO 


GENERATED 
CCW CHAIN 











" VARUNB/ 
SPNUNB 


YES 


FIXUNB 


YES 


X'39', SEEKADR+3, X'40', 4 
X'08', *=-8 

X'92', IDLOC, X'60', 5 
X'AM ,KEYARG, X'40', Ky 


X'08' ,*-16 


X'05', JOAREAI+K, , X'10', Dy 


X'39', SEEKADR#+3, X'40', 4 
X'08', *=8 
X'A9', KEYARG ,X'40!, Ky 
X'08', *-8 


X'05', JOAREA1+K, , X'30', Dy. 








NO 


I 
| SRCHKE 


t 

TIC 
1 
i 


;WRD 





ISRCHHAE 
! 


TIC 

| 
\SRCHKE 
i 

TIC 


1 
'WRD 





FROM 
CHART 


Heeo 


NO VERIFY 


NO 


UNDEF 


YES 


X'29', KEYARG, X'40", Ky 


X'08', *-8 





X'05', IOAREAI+K, , X'70',Dy_ 


X'92' ,IDLOC, X'20',5 


X'39', SEEKADR#3, X'40', 4 
X'08', +8 

X'A9", KEYARG , X'40', Ky 
X108,%8 


X'05', JOAREA1+K;, X'10", Dy 


CHART F 





|SRCHHAE 
1 

{TIC 

! 


'SRCHKE 


1 
ITIC 
I 





| WRD 











NOTES: 


1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY 


THE FOLLOWING SEEK CCW: 
X'08', SEEKADR+1 , X'00', 6 


FIXUNB 


VARUNB/ 
SPNUNB 


X'29", KEYARG , X'40", Ky 
X'08", *-8 
X'05', IOAREAI+K,, X'50", Dy 


X'92', IDLOC,X'20',5 


X!29!, KEYARG , X'40', Ky 
X'08', #8 


X'05', JOAREAT+K, , X'30', Dy 


X'29', KEYARG, X'40', Ky 


X'08', *-8 


X'05', JOAREAT#K, ,X'10',D)_ 
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MACRO 


WRITE Filename, RZERO 


















DESCRIPTOR BYTES 


|) DESCRIPTOR STRING 


TEST BYTE 


GENERATED 
CCW CHAIN 


X'31!, Filename ,x'40', 5 
X'08', *-8 
X'11', FilenameB+32, X'CO0',8 
X'11", X'2800', X'60', max. record length ; 
X'31', FilenameF , X'40',5 
X'08', *-8 


X'05', FilenameK, X'10',8 


WRITE Filename, AFTER 








MACRO 





VARUNB/ 
SPNUNB 





FIXED / 
YES 


NO 


(READ RZERO) 





X'31', FilenameF, X'40',5 
X'08', *-8 


X'06', FilenameK, X'00', 8 





X'31', FilenameF, X'40',5 
X'08', *-8 

X'05', FilenameK, X'50', 8 
X'31', SEEKADR+3, X'40', 5 
X'08', *-8 

X'1D',JOAREAT, X'50', C+K; +Dy 
X'31', FilenameF, X'40',5 
X'08', *-8 

X'06', FilenameK, X'50',8 
X'31', SEEKADR#+3, X'40', 5 
X'08', *-8 


| 
X'TE', LOAREAT, X'10", C+K) +D)_ JRDCKD 





CHART G 





NOTES 


1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS ~ EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED 
BY THE FOLLOWING SEEK CCW: 


X'07', SEEKADR+1, X'00', 6 


(READ RZERO) 


X'31!, FilenameF, X'40', 5 


X'08', *-8 


X'06', FilenameK, X'00',8 


War JO AyAZedoig - werbdsIg pasuaoctT 


I 

| 

! 

1 

| 

i] 

X'31', FilenameF, X'40', 5 
! 

X'08', *-8 
' 


X'05', FilenameK, X'50!, 8 ~ 1WRD 

l 
X'31", SEEKADR#3, X'40!, 5 ISRCHIDE 
X'08!, *-8 \TIC 


| 
X'1D', LOAREAT, X'10',C+K;) +D)_ jWRCKD 








WYSI pue WYG € SWNTOA SOOIT OS 


zioddng sau }zNoyyTM suerborg TeuueYyD YG 





bj 

as 
MACRO 

or) 

o READ Filename, ID 

= 3 

x 

e YES NO 

VARUNB SPNUNB VARUNB 





NO YES 


YES 


NO YES 





GENERATED 
CCW CHAIN 









X'31', SEEKADR+3, X40", 5 [SRCHIDE X'31', SEEKAD R43, X'40', 5 X'31', SEEKADR+3, X'40', 5 
| 
X'08', *=8 [TIC X'08', *=-8 X'08', *=8 
| 
X'0E', KEYARG, X*E0", Ky |RDKD X'0E', KEYARG, X'E0", Ky X'06', LOAREA, X'60', BLKSIZE 





| 
X'06', IOAREA, X'60',BLKSIZE |RDD X'06', IOAREA, X'60', BLKSIZE X'92', IDLOC, X'20', 5 










DESCRIPTOR BYTES 


| 
X'92!, IDLOC, X'20', 5 |RDID X'92', IDLOC, X'20',5 





X'31', SEEKADR+3, X'40', 5 X'31', SEEKADR+3, X'40', 5 







X'08', *=-8 X'08', *=-8 


X'OE', KEYARG, X'E0", Ky 






X'OE', KEYARG, X'E0', K, 





X'06', IOAREA, X'20', BLKSIZE X'06', IOAREA, X'20', BLKSIZE 


CHART | 


(hh JO g 31ed) 








NO 








SPNUNB 


YES NO 





X'31', SEEKADR+3, X'40', 5 
X'08', *=-8 
X'06', IOAREA, X'60', BLKSIZE 


X'92', IDLOC, X'20!, 5 


X'31', SEEKADR+3, X'40", 5 
X'08', *=-8 


X'06', IOAREA, X'20', BLKSIZE 





NOTES: 





1, SHADED AREAS = =-ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 


2, ALL CCW CHAINS ARE PRECEDED BY THE 
FOLLOWING SEEK CCW: 


X'07', SEEKADR+1, X'00', 6 


3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS IN THE RDCNT 
CCW (DESCRIPTOR BYTE 9E) IS 


Filename. ! 


INSTEAD OF IDLOC. 


4, THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 


X'31', SEEKADR+3, X'40', 5 
X'08', *=-8 


X'06', IOAREA, X'20', BLKSIZE 
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From NOTES: 
Chart 
MACRO B 1. SHADED AREAS —-ASSEMBLY TIME 


UNSHADED AREAS - EXECUTE TIME 
2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 


X'07", SEEKADR+I, X'00', 6 
YES NO 3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS OF THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
WILL BE CHANGED TO: 





SRCHHAE - Filename. $+3 


RDCNT = Filename. |] 


SPNUNB 


SPNUNB VARUNB 


VARUNB 


4, THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
. ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
- THE RODD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 





YES 


NO YES 


NO YES 


NO : YES 


NO 





GENERATED 
CCW CHAIN 













X'39', SEEKADR+3, X'40', 4 | SRCHHAE 


X'08?, *=8 Tic 


X'39", SEEKADR#3, X'40', 4 SRCHHAE 


X'08', *-8 TIC 


X'92', IDLOC, X'60', 5 RDID 


X'39', SEEKADR+3, X'40',4 | SRCHHAE X'39", SEEKADR#3, X'40", 4 
X'08!, *=8 ITIC 8 X'08", *=8 


X'92', IDLOC, X'60", 5 7 RDID X'29!, KEYARG, X'40!, Ky . SRCHKE ee} X'29', KEYARG, X'60", Ky 


X'A9', KEYARG , X'40', K | SRCHKE 
ad 


X'A9', KEYARG, X'60', Ky. | SRCHKE X'08', *-8 TIC X'08', *=-8 
X'08', *-16 Se X'06', IOAREA, X'60', BLKSIZE | RDD X'06', IOAREA, X'60', BLKSIZE 
| 


X'06', LOAREA,X'20',BLKSIZE | RDD 


X'08', *-16 TIC 


X'06', IOAREA, X'20', BLKSIZE | RDD 





X'92', IDLOC, X'20',5 | RDID X'92', IDLOC, X'20',5 





X'39!, SEEKADR+3, X'40", 4 | SRCHHAE , | X'39", SEEKADR+3, X'40!, 4 | SECHHAE 





X'39", SEEKADR+3, X'40', 4 | SRCHHAE X'39", SEEKADR+3, X'40!, 4 | SRCHHAE 
X'08', *=8 . TIC 


| SRCHKE 


X'08', *=8 ITIC 
| 
X'A9", KEYARG , X'40', Ky | SRCHKE 


X'08', *-8 | IIc X'08', *-8 ITI 


X'A9", KEYARG , X'60', K X'29", KEYARG, X'40', Ky , SRCHKE q X'29", KEYARG, X'60", Ky SRCHKE 








L 
| 

X'08', *=8 ne X'08', *=8 iu Cc 
|RDD 


X'08', *=8 ae | | xos', #8 Inic 
X'06', IOAREA, X'20!, BLKSIZE 161 | X'06',IOAREA,X'20',BLKSIZE | RDD 


X'06', IOAREA, X'20', BLKSIZE X'06', IOAREA, X'20', BLKSIZE | RDD 





CHART J 
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DESCRIPTOR BYTES 


YES 


VARUNB 


GENERATED 
CCW CHAIN 


X'31', SEEKADR#+3, X'40!, 5 
X'08', *-8 

X'0D', KEYARG , X'60", K, 
X'05', IOAREA, X'40", BLKSIZE 
X'31!, SEEKADR+3, X'40!, 5 
X'08', *-8 

X'0E", KEYARG, X'FO", Ky 
X'06', IOAREA, X'50', BLKSIZE 


X'92', IDLOC, X'20', 5 





MACRO 


WRITE Filename, ID 





NO 


SRCHIDE 
TIC 
WRKD 
WRD 
SRCHIDE 
TIC 

RD KD 


RDD 





YES 


YES 


SPNUNB 


X'31', SEEKADR+3, X'40!, 5 
X'08!, *=8 


X'06', IOAREA, X'00', 8 


X'31', SEEKADR+3, X'40', 5 
X'08' , *-8 

X'0D', KEYARG , X'60", Ky 
X'05', IOAREA, X'40', BLKSIZE 
X'31', SEEKADR+3, X'40', 5 
X'08', *=8 

X'OE', KEYARG, X'FO', Ky 
X'06', IOAREA, X'50', BLKSIZE 


X'92!, IDLOC, X'20', 5 





X'31', SEEKADR+3, X' 40' ,5 
X'08', *=-8 
X'0D' , KEYARG, X'60' , Ky 


X'05', | OAREA, X'40' , BLKSI ZE 


X'08!, *=8 


X' OE", KEYARG, X'FO', Ky 


| 
| 
| 
| 
| 
| 
| 
X'31', SEEKADR+3, X' 40! ,5 | 
| 
| 
| 
| 


X'06', IOAREA, X'10', BLKSI ZE 


sa 


NO 


SRCHIDE 
r Tic 


RDD 


SRCHIDE 
TIC 
WRKD 
WRD 
SRCHIDE 


TIC 


SRCHIDE 


TIC 


WRKD 


WRD 


SRCHIDE 


Tic 


RD KD 


RDD 





VERIFY 


NO 


VARUNB 


YES 


X'31', SEEKADR+3, X'40', 5 


X'08', *-8 


X'05', LOAREA, X'40', BLKSIZE 


X'31', SEEKADR+3, X'40', 5 


X'08', *-8 


X'06', IOAREA, X'50', BLKSIZE 


X'92', IDLOC, X'20', 5 


X'31', SEEKADR+3, X'40', 5 
X'08', *-8 


X'06', LOAREA, X'00', 8 


X'31", SEEKADR+3, X'40!, 5 
X'08!, *-8 

X'0D', KEYARG , X'60", Ky 
X'05', IOAREA, X'40", BLKSI ZE 
X'31', SEEKADR+3,X'40', 5 
X'08', *-8 

X'0E", KEYARG, X'FO", Ky 


X'06', IOAREA, X'10', BLKSI ZE 





NO 


SRCHIDE 
TIC 


WRD 


SRCHIDE 
TIC 


RDD 


SRCHIDE 
TIC 
WRKD 
WRD 
SRCHIDE 
TIC 
RDKD 


RDD 





YES 


SPNUNB 


X'31', SEEKADR+3, X'40',5 
X'08', *=8 


X'06', LOAREA, X'00', 8 


X'31', SEEKADR#3, X'40', 5 
X'08', *-8 

X'05', IOAREA, X'40', BLKSIZE 
X'31', SEEKADR+3, X'40!, 5 
X'08', *=8 

X'06!, IOAREA, X'50', BLKSIZE 


X'92', IDLOC, X'20',5 





NOTES: 


1. SHADED AREAS  -ASSEMBLY TIME 
» UNSHADED AREAS ~ EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 


X'07', SEEKADR+1, X'00', 6 
3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS OF THE ROCNT 
CCW (DESCRIPTOR BYTE 9E) IS 
CHANGED TO: 


Filename. | 


4. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 


ARE THOSE INITIALLY GENERATED FOR SINGLE ~ 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 


ACCORDINGLY. 


NO 


SRCHIDE 
Tic 


RDD 


SRCHIDE 
TIC 

WRD 
SRCHIDE 
TIC 


RDD 


X'31", SEEKADR+3, X'40",5 
X'08', *=8 

X'05', IOAREA, X'40', BEKSIZE 
X'31', SEEKADR#3, X'40', 5 
X'08", *-8 


X'06', IOAREA, X'10', BLKSIZE 


SRCHIDE 
TIC 

WRD 
SRCHIDE 


TIC 


-RDD 


X'31!, SEEKADR43, X'40', 5 
X'08', *=8 


X'06', IOAREA, X'00', 8 


X'31', SEEKADR+3, X'40', 5 
X'08', *=8 

X'05', lOAREA, X'40', BLKSIZE 
X'31', SEEKAD R43, X'40', 5 
X'08', *-8 


X'06', IOAREA, X'10', BLKSIZE 


SCHRIDE 
TIC 


RDD 


SRCHIDE 
TIC 

WRD 
SRCHIDE 
TIC 


RDD 
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DESCRIPTOR BYTES 


MACRO 


' WRITE Filename, ID 


VARUNB 


YES 


GENERATED 
CCW CHAIN 


X'31', SEEKADR+3, X'40!, 5 
X'08', *-8 

X'0D', KEYARG , X'60", Ky 
X'05', IOAREA, X'40', BLKSIZE 


X'92', IDLOC, X'20', 5 








NO 


| SRCHIDE 
| TIC 

| WRKD 

1 WRD 


| RDID 





YES 


SPNUNB 


YES NO 





X'31', SEEKADR+43, X'40!, 5 
X'08', *=8 


‘%66' , JOAREA, X'00', 8 


X'31', SEEKADR+3, X'40', 5 


X'08', *-8 | TIC 


X'0D', KEYARG, X'60', Ky WRKD 


X'05', IOAREA, X'40', BLKSIZE | WRD 


X'92', IDLOC, X'20!, 5 | RDID 











| SRCHIDE 
| 

X'08', *-8 TIC 
X'0D', KEYARG , X'60', Ky : WRKD 





X'31', SEEKADR+3, X'40", 5 







X'05', IOAREA, X'00', BLKSIZE | WRD 








| SRCHIDE 


No VERIFY 


NO 


VARUNB 


YES 


X'31', SEEKADR+3, X'40!, 5 
X'08!, *=8 
X'05', IOAREA, X'40', BLKSIZE 


X'92', IDLOC, X'20', 5 


X'31', SEEKADR+3, X'40', 5 
X'08', *-8 


X'06', IOAREA, X'00', 8 


X'31', SEEKADR+3, X'40', 5 


X'08', *-8 


X"0D', KEYARG, X*60", K, 


X'05', LOAREA, X'00', BLKSIZE 


CHART L 








NO 





SPNUNB 


YES NO 





X'31'", SELKADR+3, X'40!, 5 
X'08', *=8 


X'06', LOAREA, X'00", 8 


X'31', SEEKADR+3, X'40!, 5 
\ 

X'08', *-8 

X'05', IOAREA, X'40', BLKSIZE 


X'92', IDLOC, X'20', 5 


X'31', SEEKADR+3, X'40', 5 | SRCHIDE 
X'08', *-8 | TIC 

| 
.X'05', JOAREA, X'00', BLKSIZE | WRD 


NOTES: 


1. SHADED AREAS =~ ASSEMS3LY TIME 
UNSHADED AREAS ~ EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY THE 
FOLLOWING SEEK CCW: 


X'07', SEEKADR+1, X'00', 6 


3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS IN THE RDCNT 
CCW IS CHANGED TO: 


Filename. ! 


4, THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDSANDTHE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 


X'31!, SEEKADR#3, X'40', 5 
X'08", 8 . 


X'06', JOAREA, X'00', 8 





X'31', SEEKADR#3, X'40!, 5 | SRCHIDE 


X'08', *-8 . TIC 


I 
X'05', IOAREA, X'00', BLKSIZE =| WRD 
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DESCRIPTOR BYTES 





VARUNB 


YES 


GENERATED 
CCW CHAIN 


X'39', SEEKADR+3, X'40', 4 
X'08', *-8 

X'92', IDLOC ,X'60', 5 

X'39", KEYARG, X"40",K, 
X'08', *-16 

X'05', IOAREA, X'40', BLK SIZE 
X'29", KEYARG , X'60',K,_ 
X'08', *-8 


X'06', JOAREA, X'10', BLK SI ZE 





MACRO 


WRITE Filename, KEY 


NO 


SRCHHAE 
tic 
RDID 
SRCHKE 


TIC 


SRCHKE 


| 
| 
| 
| 
! 
! 
| 
| WRD 
| 
! 
Ic 
| 
| 


RDD 





YES 


SPNUNB 


YES 


X'39', SEEKADR+3,X'40!, 4 
X'08', *-8 

X'92', IDLOC,X'60', 5 
X'A9', KEYARG ,X'60",K 
X'08', *-16 


X'06', JOAREA, X‘00', 8 


X"A9 , KEYARG ,X'60', K,_ 
X'08', *-8 

X'05', IOAREA, X'40',, BLK SI ZE 
'X'29' ,KEYARG, X'60' Ky 
X'08', *-8 


X'06', IOAREA, X'10', BLKSI ZE 


X'39', SEEKADR+3, X'40', 4 | 
X'08', *-§8 | 
| 
X'39 , KEYARG, X'40',K, | 
X'08' ; *§8 ; : 
X'05', IOAREA, X'40', BLKSIZE | 
| 

| 

| 

| 


X'29' ,KEYARG, X'60' ,K 


L 
X'08', *-8 


X'06', IOAREA, X'10', BLKSI ZE 











SRCHHAE 


TIC 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| ~RCHKE 


, TIC 


WRD 


SRCHKE 


| TIC 


| RDD 


SRCHHAE 


Ic 


SRCHKE 


Cc 


WRD 


TIC 


DD 


VERIFY 


NO 


VARUNB- 


YES 





X'39!, SEEKADR#3, X'40", 4 
X'08", *-8 

X'29', KEYARG, X'60',K, 
X'08', *-8 

X'05', IOAREA, X'40', BLKSIZE 
X'29" ,KEYARG, X'60',K, 
X'08", *-8 
X'06!, IOAREA, X'50', BLKSIZE 


X'92' ,IDLOC,X'20', 5 


X'39' , SEEKADR+3, X'40', 4 | SRCHHAE 


| 
X'08", *-8 | TIC 
| 
X'92', IDLOC,X'60', 5 | RDID 
| 
| SRCHKE 


X'08', *-16 : TIC 


X'AM ,KEVARG , X'60" Ky 





X'06', JOAREA, X'00', 8 | RDD 


X'A9, KEYARG ,X'60",K, 
X'08', *-8 


X'05", IOAREA, X'40', BLK SIZE 


X'29' ,KEYARG, X'60",5 


X'08', *-8 





X'06' , JOAREA, X'10', BLKSIZE 


CHART M 





NO 


SPNUNB 


YES 


X'39', SEEKADR#3, X'40", 4 
X'08', *-8 

X'29 ,KEYARG,, X'60",K, 
X'08", *-8 


X'06', IOAREA, X'00', 8 


X'29', KEYARG, X'60",K, 
X'08', *-8 

X'06', IOAREA, X'40', BLKSIZE 
X'29' ,KEYARG, X'60',K, 
X'08', *-8 

X'06', JOAREA, X'50', BLKSIZE 


X'92', IDLOC,X'20', 5 


X'39', SEEKADR43, X'40', 4 
X'08', *=8 TIC 


X129' ,KEYARG , X'40",K, 


X'08", *-8 | TIC 


X'05', IOAREA, X'40',, BLKSIZE 


X'29' ,KEYARG, X'60' Ky 


X'08', *-8 ! TIC 


| RDD 


X'06', IOAREA, X'10', BLKSIZE 





NO 


SRCHHAE 
. TIC 

: SRCHKE 
: TIC 


| RDD 


| SRCHKE 
| 
| TIC 





SRCHHAE 
: SRCHKE 


WRD 


! SRCHKE 


NOTES: 


1. 


SHADED AREAS ~ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 


. ALL CCW CHAINS ARE PRECEDED BY 


THE FOLLOWING SEEK CCW: 


X'07', SEEKADR+1, X'00', 6 


. IF RELATIVE ADDRESSING IS USED, 


THE DATA ADDRESSES IN THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
ARE CHANGED TO: 


SRCHHAE - Filename. $+3 
RDCNT -Filename.| 


THE CCW CHAINS SHOWN FOR SPNUNB 
RECORDS ARE THOSE INITIALLY GENERATED 
FOR SINGLE SEGMENT RECORDS (TYPE 00). 
THE CCW'S IN THE CHAINS ARE MODIFIED 
FOR MULTISEGMENT RECORDS AND THE BYTE 
COUNT (BLKSI ZE) FOR THE RDD AND WRD 
CCW'S WILL BE CHANGED ACCORDINGLY. 


X'39', SEEKADR+3, X'40', 4 SRCHHAE 


X'08', *-8 {Tic 


| 
X12 ,KEYARG , X'60",K | SRCHKE 
| 
X'08', *-8 


X'06',LOAREA, X'00', 8 


X'29 ,KEYARG,X'60",K 
X'08' , *-8 
X'05', LOAREA, X'40',, BLKSIZE 


X'29', KEYARG,,X'60',K, 


X'08", *-8 


X'06', JOAREA, X'10", BLKSIZE 
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NOTES: 


MACRO No VERIFY 


WRITE Filename, KEY 


1. SHADED AREAS = = ASSEMBLY TIME 
UNSHADED AREAS-~- EXECUTE TIME 





2. ALL CCW CHAINS ARE PRECEDED BY 
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DESCRIPTOR BYTES 


VARUNB 


YES 


GENERATED 
CCW CHAIN 


X'39', SEEKADR+3, X'40!, 4 
X'08',*=8 

X'92!, IDLOC, X'60!,5 
X'A9!, KEYARG , X'40", Ky 
X'08', *=16 


X'05', IOAREA, X'00', BLKSIZE 








NO 


SRCHHAE 


| TIC 


: RDID 
SRCHKE 
IC 


WRD 





SPNUNB 


YES 


X'39", SEEKADR#+3, X'40", 4 
X'08', *-8 

X'92', IDLOC, X'60!, 5 
X'A9!', KEYARG , X'60!, Ky 
X'08', #16 


X'06', IOAREA, X'00',8 


X'A9'", KEYARG , X'60', K 


X'08', *-8 


X'05', IOAREA, X'00!, BLKSIZE 


X'39", SEEKADR#3, X'40', 4 
X'08', *=8 
X'A9", KEYARG , X'40", Ky 
X'08!, *=8 


X'05', IOAREA, X'00', BLKSIZE 





YES 


NO 


SRCHHAE 
TIC 

RDID 
SRCHKE 
TIC 


RDD 


SRCHKE 
| TIC 
| 
| 


WRD 


| SRCHHAE 
| TIC 
| SRCHKE 
| TIC 


| WRD 





X'A9", KEYARG , X'60', Ky 





NO 


VARUNB 


YES 


NO 





X'39", SEEKADR+3, X'40", 4 
X'08', *=8 

X'29', KEYARG , X'40", Ky SRCHKE 
X'08', *=8 | TIC 
X'05', IOAREA, X'40', BLKSIZE | WRD 


X'92", IDLOC, X'20!, 5 | RDID 


X'39", SEEKADR#3, X'40!,4 | SRCHHAE 
X'08', *=8 TIC 
X'92!, IDLOC, X'60', 5 | RDCNT 
; SRCHKE 
X'08', *=16 | Tic 
X'06!, JOAREA, X'00', 8 ! RDD 





X'A9", KEYARG , X'60', Ky 


X'08!, *=8 


X'05', IOAREA, X'00" /BLKSIZE 





CHART N 








SPNUNB 


YES 


X'39', SEEKADR+3, X'40', 4 


X'08', *=8 


X'29", KEYARG , X'60", Ky 


X'08!, *-8 


X'06", IOAREA, X'00', 8 


t 


X'08', *-8 





X'29", KEYARG, X'60", Ky 


NO 


SRCHHAE 
TIC 
SRCHKE 
TIC 





X'05', IOAREA, X'40", BLKSIZE 


X'92!, IDLOC, X'20', 5 


X'39", SEEKADR+3, X'40', 4 
X'08!, *-8 

X'29", KEYARG, X'40", Ky 
X'08', *-8 


X'05', IOAREA, X'00', BLKSIZE 


SRCHHAE 


TIC 


| 

| 

| 

| 

| SRCHKE 
| TIC 

| 

| 


WRD 


THE FOLLOWING SEEK CCW: 


X'07', SEEKADR+1, X'00', 6 


3. IF RELATIVE ADDRESSING IS USED, 


THE DATA ADDRESSES IN THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
ARE CHANGED TO; 

SRCHHAE ~ Filename. $+3 


RDCNT ~=Filename.! 


4, THE CCW CHAINS SHOWN FOR SPNUNB 


RECORDS ARE THOSE INITIALLY GENERATED 
FOR SINGLE SEGMENT RECORDS (TYPE 00). 
THE CCW'S IN THE CHAINS ARE MODIFIED 
FOR MULTISEGMENT RECORDS AND THE BYTE 
COUNT (BLKSIZE) FOR THE ROD AND WRD 
CCW'S WILL BE CHANGED ACCORDINGLY. 


X'39!, SEEKADR+3, X'40', 4 ! SRCHHAE 
X'08', *=8 

X'29", KEYARG , X'60", K, 
X'08', *=8 

X'06', JOAREA, X'00!, 8 


1 SRCHKE 


X'29', KEYARG, X'60', Ki 


X'08!, *=8 ric 
X'05', IOAREA, X'00', BLKSIZE | WRD 
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DESCRIPTOR BYTES 


X'31', Filename .F, X'40', 5 





MACRO 


WRITE Filename, AFTER 





YES NO 





GENERATED 
CCW CHAIN 


(READ RZERO) 
X'31', Filename. F, X'40', 5 
X'08', *=8 


X'06', Filename. K, X'00', 8 


X'31', Filename. F, X'40',5 SRCHIDE 


X'08', *=8 TIC 


X'05', Filename. K, X'40!, 8 WRD 


X'31", SEEKADR+3, X'40', 5 SRCHIDE 
X'08', *=8 TIC 
X'ID', Filename.C, X'E0' ,8 WRCKD 


X'0D', KEYARG , X'E0' ,K) WRKD 


SRCHIDE 


X'08', *=8 TIC 


X'06', Filename. K,X'50', 8 RDD 


X'31', SEEKADR+3, X40", 5 SRCHIDE 


X'08!, *=8 TIC 


X'1E!, Filename.C, X'F0', 8 RDCKD 


X'OE', KEYARG, X'FO', K RDK 


L 
X'06', IOAREA, X'10', BLKSI ZE 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
X'05', IOAREA, X'40", BLKSIZE | WRD 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


RDD 


YES 


(READ RZERO) 







X'31!, Filename.F, X'40', 5 SRCHIDE 


TIC 





X'08', *=8 





X'06', Filename. K, X'00', 8 RDD 


X'31', Filename. F, X'40', 5 SRCHIDE 
X'08', *-8 TIC 
X'05', Filename. K, X'40',8 WRD 
X'31', SEEKADR+3, X'40', 5 SRCHIDE 
X'08', *=8 TIC 
X'1D', Filename.C, X'E0',8 WRCKD 
X'05', IOAREA, X'40', BLKSIZE | WRD 
X'31', Filename. F, X'40',5 SRCHIDE 
X'08!, *=8 TIC 
X'06', Filename. K,X'50',8 RDD 
X'31!, SEEKADR#3, X'40!, 5 SRCHIDE 
X'08', *-8 TIC 
X'1E', Filename.C, X'FO', 8 RDCKD 


X'06', IOAREA, X'10', BLKSIZE RDD 





NO 


CHART O 





YES 


(READ RZERO) 


X'31', Filename. F, X'40', 5 
X'08", *=8 


X'06', Filename. K, X'00', 8 





X'31', Filename. F, X'40', 5 


X'08', *=8 


X'05', Filename. K, X'40',8 


X'31', SEEKADR43, X'40!, 5 


X'08', *=8 


X'1D', Filename.C, X'E0',8 


X'0D', KEYARG , X"E0", Ky 





SRCHIDE 


| TiC 
| 
| RDD 


| SRCHIDE 
| 
| TIC 


| 
| WRD 
: SRCHIDE 


| tic 
| 
| WRCKD 


: WRKD 


X'05', IOAREA, X'00', BLKSIZE | wrD 


NOTES: 


1. SHADED AREAS -ASSEMBLY TIME 
UNSHADED AREAS- EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 


X'07', SEEKADR+1, X'00',6 


3. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITAILLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 


(READ RZERO) 
X'31', Filename.F, X'40',5 


X'08', *=8 


X'06', Filename. K, X'00',8 





X'31', Filename.F,X'40',5 


Se ee ee oe 
SS Sate 
ete rei leat 


X'08!, *=8 
X'05', Filename. K, X'40',8 
X'31', SEEKADR+3, X'40!, 5 
X'08', *-8 

X'1D!, Filename.C, X'E0',8 


X'05', IOAREA, X'00', BLKSIZE 
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DESCRIPTOR BYTES 





MACRO 


READ Filename, ID 





“POINTER — 


aS 


YES 


UNDEF FIXUNB 





VARUNB/ 
SPNUNB 


YES NO: . YES 


NO 





GENERATED 
CCW CHAIN 


X'31'FilenameF X'40',5 ISRCHIDE 
X'08',*-8 ITIC 
X'12' FilenameK,X'40' 8 IRDCNT 
X'0E IOREAT+4,X'60' K+, IRDKD 
X'92', IDLOC X'20!,5 IRDID 

' 


X'23', LJSECVI,X'40',] 
X'31',SEEKADR+3,X'40!, 5 
X'08!,*-8 
X'OEVIOREAT+,X'40! K, +D, 
X'92', IDLOC,X'20!,5 


X'31' ,FilenameF X'40',5 
X'03',*-3 
X'12',FilenameK X'40',8 


X'0E' JOREA1+4,X'20', K, +), 





| DESCRIPTOR STRING 





TEST BYTE 





NO 


UNDEF 


YES 


X'31 | FilenameF,X'40',5 
X'08',*-8 

X'12', Filename X'40',8 
X'06', IOREAI+K, ,X '60',D 
X'92', IDLOC,X'20,5 


L 





X'23',LISECVI,X'404,1 
X'31', SEEKADR+3 X'40',5 
X'08',*-8 


X'OE',IOREAT+4,X'00K, +D, 





Chart A 





NOTES: 


1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY THE 
FOLLOWING SEEK CCW: 


X'07',SEEKADR+1,X'00", 6 


3. IF BLKSIZE = Ky +D, THEN 4=0 
IF BLKSIZE > Ky +D, THEN =8 


FIXUNB 





VARUNB/ 
SPNUNB 


NO YES NO 





X'23', LJSECVI,X'40',1 ISETSEC 
X'31", SEEKADR+3,X'40!,5 
X'08', *=8 

X06" ,IOREAT+K, ,X'40",D 
X'92" IDLOC,X'20',£ 


L 


X'31",SEEKADR+3,X'40', 5 
X'08', *=8 
X'06',IOREAT#K, ,X'00',D, 


X'31 ' Filename X'40',5 
X'08',*-8 
X'12' Filename K,X'40',3 


X'06',IOREAT+K las '20 "Dy 
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DESCRIPTOR'BY44ES 





MACRO 


READ Filename ,KEY 


YES 


FIXUNB 


UNDEF 





VARUNB/ 
SPNUNB 


YES 


NO 





GENERATED 

CCW CHAIN 
X'39', SEEKADR+3,X'40',4 
X'08',* -8 
X'92',FilenameK,X '40',8 
X'AD"KEYARG,X ‘405K, 
X'08',*-16 
X'06', LOAREAT+K, ,X'20',Dy 


X '39', SEEKADR+3,X'40',4 
X'08',*-8 

X'92', IDLOC,X'60!,5 
X'A9',KEYARG,X ‘40K, 
X'08',*-16 
X'06!,IOAREAT+K, ,X'00',Dy 





X'23', LJISECVO,X '40', 1 I 
X'39', SEEKADDR+3,X '40',4 
X'08',*-8 

X'92' FilenameK,X'40',8 


X'A9',|KEYARG,X'40,K) 
X'081,*-16 
X'06',JOAREAT+K, ,X'20', Dy 





SRCHHAE 
| Tic 

; RDID 

) SRCHKE 
i TIC 

1 RDD 





SETSEC 


: SRCHHAE 


TIC 
RDCNT 
SRCHKE 
TIC 
RDD 





NO 


YES 


X'12',FilenameK,X'40',8 
X'29" KEYARG,X '40',Ky 


X'08',*-16 


UNDEF 





NO 


tRDCNT 
ISRCHKE 
’ 

TIC 


! 
X'06 TOAREAT#K, ,X '60",D, +#RDD 


X'92', IDLOC,X'20',5 


X'23", ISISECVO,X'40',1 
X'39', SEEKADR+3,X'40',4 
X'08',*-8 
X'AD,KEYARG,X'40!,K) 


X'08',*-8 
X'06',IOAREA1+K, ,X '00",Dy 





Chart B 


t 
pRDID 


' SETSEC 

1 SRC HHAE 
1 TIC 

SRC HKE 
| TIC 

1 RDD 





NOTES: 





1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 


X'07', SEEKADR+1,X '00',6 


FIXUNB 


VARUNB/ 
SPNUNB 


YES NO 





X'29', KEYARG,X'40",Ky 
X'08',*-8 
X'06',IOAREAT+K, ,X'40', Dy 
X92", IDLOC,X '20!,5 





X'12' FilenameK,X'40',8 RDCNT 
X'29',KEYARG,X '40',K) 1 SRCHKE 
X'08',*-16 ITIC 


i 
Xx 06", IOAREAT+K, ,X '20',Dy tRDD 





X'29',KEYARG,X'40',Ky 
X '08 x -8 
X'06',JOAREAI+K, ,X'00',D, 





War jo A&yzedorg - werboig pesusadtT 


NOTES: 


Sees ED ba ot, 8 Be, OE” Om Le 
MACRO DESCRIPTOR STRING : 1. SHADED AREAS - ASSEMBLY TIME 


Ts is POINTER ns UNSHADED AREAS — EXECUTE TIME 
WR tlename, PEA Ra eae eo: | eae oe ; 
2. ALL CCW CHAINS ARE PRECEDED BY 


THE FOLLOWING SEEK CCW: 














“GL eanbty 


X'07',SEEKADR+1 X'00',6 





VERIFY 








NO 
Specified 3, IF BLKSIZE = K, #D, THEN 4 =0 
IF BLKSIZE > K,+D, THEN 4 =8 
YES 
YES  KEYLEN © NO 
_. Specified 
UNDEF 33 UNDEF 
RECFORM FIXUNB FIXUNB 
VARUNB/ VARUNB/ 
SPNUNB SPNUNB 


































IDLOC NO YES NO YES NO 


Specified 


YES NO YES IDLOC 


Specified 


IDLOC 
Specified 


 IDLOC 
Specified 


GENERATED 
CCW CHAIN 


X'31 |, SEEKADR+3,X '40!,5 jSRCHIDE 
X'08!,*-8 iTic 
X'0D',IOAREAT+ A ,X'70!, K, +D IWRKD 


L 
i 
X'22', ISISECVI,X'40',1 jRDSEC 


X'23', WISECV1,X'40', 1 , SETSEC 
X'31', SEEKADR+3,X'40', 5 

X'08',*=8 

X "0D! IOAREAI+ 4,X'50',Ky +D 

X'23', LJISECV1,X'40!,1 1 SETSEC 
X'31'!, SEEKADR+3,X '40',5 SRCHIDE 
X'08!,*-8 {TIC 

X 'OE', IOAREAT+ A,X'50!,Ky +Dy 1RDKD 
X'92', IDLOC,X'20',5 pRDID 


X'31', SEEKADR+3,X'40',5 

X'08',*-8 

X'05', JOAREAI+K) ,X'70',Dy 

X'22' IIISECV1,X'40',1 RDSEC 
X'23' WISECV1,X'40',1 1 SETSEC 
X'31',SEEKADR+3,X '40',5 

X'08',*-8 

X'06', JOAREAI+K, ,X'70',Dy 

X'92' IDLOC,X'20',5 


X'23', ISECVI,X'405,1 | SETSEC 
X'31', SEEKADR+3,X'40!,5 1 SRCHIDE 
X'08',*-8 ITIC 

Xx '05',JOAREA1+K, ,X '50',Dy {WRD 
X'23', JISECVI,X'40!,1 | SETSEC 
X'31', SEEKADR+3,X'40!,5 pSRCHIDE 
X'08',*-8 IIc 
X'06',IOAREAT+K, #X'50', Dy RDB 
X'92', IDLOC,X'20!,5 pRDID 


X'23', IJISECV1,X'40',1 ISETSEC 
X'31', SEEKADR+3,X '40',5 ISRCH IDE 
X'08',*-8 , ITIC 
X'OE'IOAREAT+A,,X'70,K, 4D, ROKD 


ase 
X'92'!, IDLOC,X'20!,5 IRDID 


DESCRIPTOR BYTES 


(nL JO € ZIed) Zaoddns Sduy YIM SueTboOIg TauueyD Ya 





| 








{SETSEC 









X'23' LJISECV1,X'40',1 iSETSEC X'31', SEEKADR+3,X'40',5 X'23' IJISECVT,X'40',1 









X'31', SEEKADR+3,X '40',5 Ree 


X'08!,*-8 TIC X'31', SEEKADR+3,X'40!,5 | SRCHIDE X'08',*-8 X'31', SEEKADR+3,X '40!, 5 I SRCHIDE 
X'0D'JOAREAT+ 4 ,X'70',Ky +Dp WWRKD X'08',*-8 TIC X'05', JOAREAT#Ky ,X'70,Dy X'08!,*-8 inI¢ 
X'22', IJISECV1,X'40',1 \RDSEC X'0D',IOAREAT+ 4 ,X'50',Ky+D, )WRKD X'22', IJISECV1,X'40!,1 X'05'JOAREAT#K, ,X'50',D,  j WRD 
X'23', IJISECV1,X'40',] ISETSEC X'23" IJISECVI,X'40!,1 ISETSEC X'23', JISECV1,X'40!, 1 X'23' IJISECVI,X'40',1 ISETSEC 
X'31', SEEKADR+3,X '401,5 jSRCHIDE X'31', SEEKADR43, 'X'40!,5 ISRCHIDE X'31', SEEKADR+3,X '40!, 5 X'31'SEEKADR+3,X'40!,5 1SRCHIDE 
X'08',*-8 ITIC X'08!,*-8 ITIC X'08',*-8 X'08',*-8 |TIC 


X'OE',FOAREAI+ A X30", K, +Di IRDKD 





X'06',IOAREAI+K,,X'10',D_ —-IRDD 





X'OE'IOAREAI+ 4 ,X'10',K, +D_ IRDKD 


X'06',IOAREAT+K; ,X'30',Dy 





CHART C 
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DESCRIPTOR BYTES 





FROM 
No Verif 
MACRO CHART ete NOTES: 


: Cc 
WRITE Filename,!D{(Continued) 1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 
2. ALL CCW CHAINS ARE PRECEDED 
BY THE FOLLOWING SEEK CCW 


X'07', SEEKADR+1,X '00',6 








YES NO 3. IF BLKSIZE = K,+D, THENA=0 
IF BLKSIZE > K, +Dy THENA =8 
UNDEF FIXUNB . UNDEF FIXUNB 
VARUNB/ VARUNB/ 
SPNUNB SPNUNB 
YES NO YES NO YES 





GENERATED ° 
CCW CHAIN 


X'31',SEEKADR#3,X '40',5 958) | x-23",JISECV1,X "4041 1 SETSEC 
X'08',*-8 87] | X'31",SEEKADR+3,X"40!,5 1 SRCHIDE 
X'05',IOAREAT#K, ,X'70',D, 18 |_| x-08',4-8 pT 
X'92" IDLOC,X'20!,5 91] 1X'05*,IOAREAT#K,,X'50",D, | WRD 

OE X'92', IDLOC,X'20',5 ' RDID 


X'31', SEEKADR+3,X '40',5 ISCHRIDE| 


i] 
X'08!,*-8 TIC 
X'OD',JOAREAI+4 ,X'70',Ky +Dy IWRKD 


X'92', IDLOC,X'20",5 IRDID 
I 
| 


X'23', ISECV1,X '40',1 I SETSEC 
X'31", SEEKADR#+3,X '40!,5 ISCHRIDE 
i 
X'08',*-8 TIC 
X'OD',IOAREAI+4 ,X'50',K, +Dy_ | WRKD 
X'92", IDLOC,X'20',5 RDID 











X'31', SEEKADR+3,X '40',5 
X'08',*-8 





X'23', WISECV1,X'4041  SETSEC 
X'31", SEEKADR+3,X'40!,5 | SRCHIDE 
X'08',*-8 pic 

X'0D',IOAREAI+ 4 ,X'10',K, +D, | WRKD 


X'31',SEEKADR+3,X'40',5 \ SRCHIDE 
X'08',*-8 iTIC 
‘ 1 
X'05' IOAREAI+K, X'30'D, 1 WRD 
1 
I 






X'0D!,LOAREAT+4 ,X'30',K; +Dy 





CHART D 


X'23!, ISISECV1,X'40',1 

X'31 ', SEEKADR+3,X'40!,5 
X'08',*-8 

X'05', LOAREAT4K, ,X'10',Dy 





| SETSEC 
| SRCHIDE 
TIC 

| wep 
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DESCRIPTOR BYTES 





YES 


MACRO 


WRITE Filename, KEY 


YES 






UNDEF FIXUNB 


RECFORM ° 


VARUNB/ 
SPNUNB 














IDLOC NO YES 


Specified 


IDLOC 
Specified: 


GENERATED 
CCW CHAIN 





1 SETSEC 
| 

| SRCHHAE 
{ 

1 TIC 












X '23', LJISECVO,X'40!, 1 
X '39', SEEKADR+3,X '40',4 
X'08',*-8 

X'92!, FILENAME.K,X '40',8 tRDID 
X'A9',KEYARG,X'40',K) I SRCHKE 
X'08',*-16 Tie 


X'23!,1JISECVO,X'40!,1 
X'39", SEEKADR#3,X '40!,4 
X'08 !,*-8 

X'92', IDLOC,X'60!,5 
X'A9|KEYARG,X'40!,Ky 
X'08',*-16 


X'08!,*-8 iTIC 
X'06', IOAREAI+K,_,X'30', Dy 


X'08',*-8 
X'06', IOAREAT+K, ,X'10', Dy 


| X'23', IJISECVO,X'404,1 
X'39!, SEEKADR+3,X'40',4 
X'08',*-8 
X'A9", KEYARG,X'40',K, 
X'08!,*-8 


X'05',JOAREA1+K ,X'70",D, 
X'22', JISECV1,X'40',1 
X'23', IJISECV1,X 4041 
X'29', KEYARG,X'40!,Ky 
X'08',*-8 

X'06!, IOAREA1#+K, ,X'30,Dy 


X'05',JOAREAI+K, ,X'70',Dy WRD X'05',IOAREAT#K, ,X'50",Dy 
X'22', IJISECV1,X'40",1 1 RDSEC X'22', IJISECV1,X'404,1 
X'23), IJISECV1,X'40',1 ! SETSEC X'23', IJISECV1,X'40', 1 
X'29',KEYARG,X'40',K, | SRCHKE X'29',KEYARG,X'40",K, 














a ee em ee oe wre wee re eee ee cme ep ee eee es eee 


SETSEC 
SRCHHAE 


TIC 


SRCHKE 


TIC 
WRD 


RDSEC 
SETSEC 
SRCHKE 


TIc 
RDD 





* DESCRIPTOR STRINGS: | 


_ POINTERS Js 








VERIFY NO 
Specified 

YES oe 
SRCHM NO 






Specified 


UNDEF 










~ IDLOC 
Specified 


NO YES 


SETSEC BF 
SRCHHAE| | [18 
TIC (93° 
RDID 68° 
SRCHKE 58 
TIC 8F 
WRD bis 
RDSEC 13: 
SETSEC 9E 
SRCHKE ° 
TIC 

RDD 


X'29'|KEYARG,X'40',Ky 
X'08!,*-8 

X'05' JOAREAT#K, ,X'70',Dy 
X'22", JISECV1,X'40',1 

X'23', JISECV1,X'40',1 
X'29',KEYARG,X'40',K) 
X'08',*-8 
X'06', IOAREAT+K, ,X'70!, Dy 
X'92" IDLOC,X '20!,5 


X'23', LJISECVO,X'40',1 
X'39', SEEKADR+3,X'40',4 


X'A9',KEYARG,X'40!,K) 
X'22', IISECVI,X'401,1 


X'23', IJISECV1,X'40',1 
X'29.KEYARG,X'40UK 





Chart E 


NO 


1 SRCHKE 
TIC 

| WRD 

| RDSEC 
SETSEC 
| SRCHKE 
TIC 

| RDD 
'RDID 


SETSEC 
SRCHHAE 
X'08',*-8 TIC 
SRCHKE 
X'08',*-8 TIC 


X'05', JOAREAT+K, ,X'50',Dy WRD 


RDSEC 
SETSEC 
SRCHKE 
X'08',*-8 TIC 
X'06' JOAREAT+K) ,X'10',Dy RDD 





NOTES: 


1. SHADED AREAS ~- ASSEMBLY TIME 
UNSHADED AREAS ~ EXECUTE TIME 


2, ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW 


X'07', SEEKADR+1,X'00',6 





FIXUNB 


RECFORM 


VARUNB/ 
SPNUNB 






YES IDLOC NO 


Specified 





X'29' KEYARG,X ‘407K, SRCHKE 









X'08',* -8 TIC 

X'05', JOAREA1+K,,X'50',Dy i WRD 
X'22" LISECV1,X'40',1 RDSEC 
X'23' LJISECV1,X'40',1 SETSEC 
X'29",KEYARG,X '40', Ky. | SRCHKE 


I 
X'08',* -8 tTIC 
: { 
X'06', JOAREAI+K; ,X'50',Dy 1RDD 
4 
X'92' IDLOC,X '20',5 j RDID 





X'29', KEYARG,X "404 Kp SRCHKE 
X'08',*-8 ITIC 
X'05',IOAREAT#K),X'70',D,, WRD 
X'22', WISECV1,X'40',] | RDSEC 
X'23', IJISECV1,X'4041 1 SETSEC 
X'29', KEYARG,X'40',Ky SRCHKE 
X'08!,*-8 TIC 
X'06',IOAREAI+K) ,X'30",D, 1 RDD 


BF 
18: 
EW: 
68 
cs 
BF 
18 
fis” 





X'29',KEYARG,X'40!, Ky 
X'08',*-8 
X'05',IOAREAT#K,X'50',Dy 
X'22', JISECV1,X'40',1 
X'23', JISECV1,X'40',1 
X'29, KEYARG,X'40',Ky_ 
X'08!,*-8 
X'06!,IOAREAT#K) ,X'10",Dy 





SRCHKE 
} TIC 
WRD 
RDSEC 
1 SETSEC 
SRCHKE 
ITIC 

' 

| RDD 

' 
| 
! 
| 
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DESCRIPTOR BYTES 





MACRO 


WRITE Filename, KEY (continued) 


YES 


UNDEF 


FIXUNB 











VARUNB/ 
SPNUNB 
YES IDLOC NO YES IDLOC - = 


Specified ~ 


GENERATED 
CCW CHAIN 


X'23!,SISECVO,X'40',1 
X'39',SEEKADR+3,X'40!,4 ISRCHHAE AZ 
X'08',*-8 nic ‘18 | 
X'92', FILENAME.K,X'40',8 IRDID 9A 
X'A9',KEYARG,X'40,K ISRCHKE 88 
X'08',*-16 tic 10 

X'05',IOAREAI+K, ,X'30'",D, — JWRD 95 


SETSEC 48 X'23", ISISECVO,X'40',1 
X'39',SEEKADR+3,X '40',4 
X'08',*~8 

X'92', IDLOC,X'60',5 
X'AP' KEYARG,X'40'",K 
X'08',*-16 

X'05'" JOAREA1+K, ,X'10',Dy_ 


X'23', LJ ISECVO,X '40',1 
X'39', SEEKADR#+3,X'40',4 
X'08',*-8 
: , 88 FP] X'A9*,KEYARG,X'40!,K, 
Tl xogs*-8 
X'05',IOAREAT+K, ,X'30',Dy 







Specified - 54 








NO 





ISETSEC 
jSRCHHAE 
ITIC 
iSRCHKE 
ITIC 


Wweo 


NO VERIFY 


NO 


UNDEF 


NO 


YES 





X'29'",KEYARG,X '40',K, 
X'08',*-8 . 
X'05', JOAREA1+K,,X'70',Dy_ 
X'92', IDLOC,X'20',5 


X'23', ISECVO,X'40!,1 ISeTSEC 
X'39', SEEKADR+3,X'40',4 iSRCHHAE 
X'08',*-8 lic 
X'A9',KEYARG,X'405,K, 'SRCHKE 
X08 ',* -8 ITIC 
X'05'JOAREAT#K,,X'10,D, IRD 





Chart F 





NOTES: 


1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS ~- EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 


X'08', SEEKADR+1,X'00',6 


FIXUNB 


VARUNB/ 











SPNUNB 
YES LES -IDLOC NO 


Specified > 





X'29', KEYARG,X'40',Ky 
X'08',*-8 TIC 

X'05',JOAREA1+K, ,X'50',D, IwRD 
X92", IDLOC,X'20!,5 






X'29'", KEYARG,X'40', Ky 
X '08',* -8 


X'05',JOAREAI+K, ,X'10',Dy 





X'29',KEYARG,X'40!,Ky 
X'08',*-8 


X'05',IOAREA1+K, ,X'30',Dy 
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MACRO 


WRITE Filename,RZERO 






DESCRIPTOR BYTES 





TEST BYTE 







GENERATED 
CCW CHAIN 







X'23', IJISECVO,X'40',1 
X'31' FilenameF,X'40',5 
X'08',*-8 
X'11',FilenameB+32,X'C0',8 j ERASE 
X'11',X'2800',X'60',max.record length ERASE 
X'31',FilenameF,X'40',5 IsRcH IDE 
X'08',*-8 !Ic 
X'05',FilenameK ,X'10',8 









WRITE Filename,AFTER 


MACRO 


YES 


(READ RZERO) 
X'23', LJISECVO,X'40',1 
X'31',FilenameF,X'40',5 
X'08',*-8 
X'06',FilenameK,X '00',8 


X'23', IJISECVO,X '40', 1 
X'31',FilenameF,X'40',5 
X'08',*-8 
X'05',FilenameK,X'50',8 

X'31', SEEKADR+3,X'40',5 
X'085*-8 
X'TD',IOAREA1,X'50",C+K; +Di 
X'31',FilenameF,X'40',5 . 


X'08',*-8 

X'06',FilenameK ,X'50',8 
X'31',SEEKADR+3,X '40',5 
X'08',*~8 

X'TE‘ JOAREAT,X'10',C+K, +D 


CHART G 


1 SETSEC 
1 SRCHIDE 
1 TIC 
WRD 

| SRCHIDE 
ITic 

{ WRCKD 
| SRCHIDE 
ITIc 

, RDD 

{| SRCHIDE 
{Tic 


tRDCKD 
t 


VERIFY ~ 
“. Specified : 





FIXED/ 
UNDEF 









VARUNB/ 
SPNUNB 


NO 














NOTES: 


1. SHADED AREAS ~- ASSEMBLY TIME 
UNSHADED AREAS - EX ECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED 
BY THE FOLLOWING SEEK CCW: 


X'07',SEEKADR+1,X'00',6 


(READ RZERO) 
X '23 ', IJTSECVO,X'40',1 
X'31',FilenameF,X'40',5 


X'08',*-8 
X'06',FilenameK,X '00',8 


Wal Jo A}zaadoig - weiborg pasueott 


X'23',JISECVO,X'40',1 y SETSEC | 
X'31 ',FilenameF,X'40',5 | SRCHIDE 
X'08',*-8 ITIC 
X'05',FilenameK,X'50',8 NWRD 
X'31', SEEKADR+3,X'40',5 ISRCHIDE 
X'08',*-8 {TIC 
X'1D',JOAREAI,X'10',C+Ky +Dy PrRERD 
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“GL einbtg 


DESCRIPTOR BYTES: 





READ Filename, iD 


VARUNB 






YES sIDLOC 


Nk Specified 


GENERATED 
CCW CHAIN 


X'31', SEEKADR+3,X '40!,5 
X'08!,*-8 
X'OE",KEYARG,X'E0',K, 


X'06", IOAREA,X'60',BLK SIZE 
X'92', IDLOC,X'20',5 





MACRO 


NO 





| SRCHIDE 
ITIC 
;RDKD 
{ROD 
tRDID 





RECFORM * 








YES 





SPNUNB 


YES 


NO 





X'31',SEEKADR+3,X '40',5 
X'08',*-8 

X'OE', KEYARG,X ‘E0",K, 
X'06', IOAREA,X '60' BLK SIZE 
X'92', IDLOC,X'20',5 





X'31 ', SEEKADR+3,X '40',5 1 SRCHIDE 
X'08',*-8 {TIC 
X'OE',KEYARG,X'E0',Ky_ RDKD 


X'06', IOAREA,X '20',BLK SIZE 'RDD 
I 
{ 








NO 


VARUNB 


YES NO 





X'31 ' SEEKADR+3,X '40',5 
X'08',*-8 
X'06', IOAREA,X'60', BLKSIZE 
X'92' IDLOC,X'20',5 


X'31', SEEKADR+3,X'401,5 
X'08'*-8 
X'OE'",|KEYARG,X'EO', Ky 
X'06',JOAREA,X'20',BLKSIZE 


CHART I 








SPNUNB 





YES NO 


oo Specified: 





X'31', SEEKADR+3,X '40',5 
X'08',*-8 

X'06', LOAREA,X'60',BLK SIZE 
X'92" IDLOC,X'20',5 


X'31', SEEKADR+3,X'401,5 
X'08',*-8 
X'06',IOAREA,X'20', BLK SIZE 


1. 


NOTES: 


SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 


ALL CCW CHAINS ARE PRECEDED BY THE 
FOLLOWING SEEK CCW: 


X'07', SEEKADR+1,X '00',6 
IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS IN THE RDCNT 
CCW (DESCRIPTOR BYTE 9E) IS 


Filename. ! 


INSTEAD OF IDLOC. 


. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 


ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 


X'31 |, SEEKADR+3,X '40', 5 
X'08',*-8 
X'06', JOAREA,X'20', BLK SIZE 





WaI Jo Aytedoidg - wesrboig pesueott 


SeTtd SSssoo0y zO9SITd 


S9 


“GL eainbty 


(nL JO 6 342d) ZrOddnS Sdy¥ YITA SueIboOIg T[TauueuD AYA 


YES 


_ DESCRIPTOR BYTES 





oo pLoc | ON, 
_ ‘Specified; ~ - 5 


MACRO 


READ Filename, KEY 


VARUNB 









GENERATED 
CCW CHAIN 





X'23' IJISECVO,X'40', 1 
X '39', SEEKADR+3,X '40',4 


X'08',*~8 


X'92' IDLOC,X'60',5 


X'A9", KEYARG,X'40',K 


X'08',*-16 


L 


X'06',LOAREA,X '20',BLKSIZE 


NO- 





SETSEC 

I SRCHHAE 
TIC 
'RDID 

) SRCHKE 

i TIC 

j ROD 

t 





+ RECFORM. 


YES 



















_ IDLOC 
"Specified : 


SPNUNB 





X'23", LJISECVO,X'40',1 


X'39", SEEKADR+3,X '40',4 


X'08',* -8 


X'92', IDLOC,X'60',5 


X'AYKEYARG,X ‘605, Kp 


X'08',*-16 


X'06', LOAREA,X '20', BLK SIZE 


X '23', LSISECVO,X'40', 1 
X'39', SEEKADR+3,X '40',4 
X'08',*-8 
X'AD'", KEYARG,X'40', Ky 
X'08',*-8 
X'06',JOAREA,X'20',BLKSIZE 


YES 





SETSEC 


| SRCHHAE 


| TIC 


1 RDID 


SRCHKE 
! Tic 


! RDD 
| 









1 SETSEC 
SRCHHAE 
iTIC 

| SRCHKE 
| TIC 


RDD 









NO 


From 


Chart 


oe 










eS SRCHM 7 


ead NO 
‘.. Specified". yy 








VARUNB SPNUNB 


<OSRECFORM 














“— IDLOC NO 


‘Specified 


“IDLOC NO YES 


Specified’ 


YES 









X'23,JISECVO,X'40!,1 | SETSEC 
X'39', SEEKADR+3,X'40!,4 1 SRCHHAE 
X'08',*-8 Tie 
X'29', KEYARG,X'40",K 1 SRCHKE 
X'08',*-8 
X'06',IOAREA,X'60!,BLKSIZE 
X'92*, IDLOC,X'20',5 


X'23', ISECV0,X'408,1 ! SETSEC 
X'39!, SEEKADR#3,X'40',4 | SRCHHAE 
X'08',*-8 1 TIC 
X'29!, KEYARG,X'60',Ky | SRCHKE 
X'08',*-8 { TIC 
X'06',IOAREA,X‘60',BLKSIZE ' RDD 
X'92',IDLOC,X'20!,5 


' RDD 


1 RDID 
l 


X'23!, ISECVO,X'40',1 
X'39', SEEKADR+3,X'40!,4__ 
X'08!,*-8 
X'29',KEYARG,X'40",K) 
X'08',*-8 

X'06', IOAREA,X '20!, BLK SIZE 


X'23', ISISECVO,X '40',1 SETSEC 

X'39'", SEEKADR+3,X '40',4 SRCHHAE 
X'08',*-8 TIC 
X'AD"KEYARG,X ‘60",K) SRCHKE 
X'08',*-8 TIC 


X'06', JOAREA,X'20',BLK SIZE RDD 


| SETSEC 

| SRCHHAE 
tTIC 

| SRCHKE 


RDD 


CHART J 


1. 








NOTES: 


SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS ~ EXECUTE TIME 


ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 


X'07', SEEKADR+1,X '00',6 
IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS OF THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
WILL BE CHANGED TO: 

SRCHHAE - Filename.S+3 


- Filename.| 


RDCNT 


. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 


ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 
THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 


X'23',LJISECV0,X'40', 1 
X'39'",SEEKADR+3,X '40',4 
X'08',*-8 

X'29', KEYARG,X'60",K,_ 
X'08',*-8 

X'06', JOAREA,X'20',BLK SIZE 


| SETSEC 
: SRCHHAE 
, Tic 

| SRCHKE 
' Tic 

RDD 


WAI JO Aytaedoig - wethoig pasuaeodttT 
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YES: 


DISCRIPTOR BYTES 








VARUNB 


GENERATED 
CCW CHAIN 


X'31', SEEKADR+3,X '40!,5 
X'08',*-8 
X'0D',KEYARG,X'60',K, 
X'05', JOAREA,X'40', BLKSIZE 
X'22" ISISECV1,X'40!,] 
X'23', WISECV1,X'404,1 

X'31" SEEKADR+3,X'40!,5 
X'08',*-8 
X'0E',KEYARG,X'F0',K, 
X'06*, IOAREA,X'50!, BLK SIZE 
X92", IDLOC,X'20',5 

















MACRO 


, WRITE Filename, 1D 


NO 





SRCHIDE 
TIC 


WRKD 
WRD 
RDSEC 
SETSEC 


SRCHIDE 
Tic 
RDKD 
RDD 
RDID 


—_ we ee ae oe ewe ae aw ae we ee ie awe awe ee = ne 














YES 


SPNUNB 


YES 





X'31',SEEKADR+3,X '40',5 
X'08',*-8 
X'06',LOAREA,X'40',8 
X'22'", IISECV1,X'00',1 


X'23!, WISECVI,X'408,1 

X'31, SEEKADR#3,X'40!,5 
X'08!,*-8 
X'OD',KEYARG,X'60',K) 
X'05', IOAREA,X '40!, BLK SIZE 
X'23', IISECVI,X'405,1 

X'31 ', SEEKADR+3,X'40!,5 
X'08!,*-8 
X'OE',KEYARG,X'FO!,Ky 
X'06!, IOAREA,X '50!,BLK SIZE 
X'92', IDLOC,X '20',5 















X'31 ', SEEKADR+3,X'40',5 
X'08',*-8 TIC 
X'OD',KEYARG,X '60',K,_ j WRK 


X'05',IOAREA,X'40',BLKSIZE  ' WRD 
! 


X'06', IOAREA,X'10',BLKSIZE : RDD 


| SRCHIDE 


X'22", IJISECV1,X'40!,1 , RDSEC 
X'23!, IJISECV1,X'40',] | SETSEC 
X'31 ', SEEKADR+3,X'40',5 1 SRCHIDE 
X'08!,*-8 TIC 
X'0E',KEYARG,X'FO',Ky 1 RDKD 


VERIFY 


NO 








NO 


SRCHIDE 
TIC 

RDD 
RDSEC 


SETSEC 
SRCHIDE 
TIC 
WRKD 
WRD 
SETSEC 
SRCHIDE 
TIC 
RDKD 
RDD 
RDID 





D 


VARUNB 





SPNUNB 


1. 


NOTES: 


SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 


ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 


X'07', SEEKADR+1,X'00',6 
IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS OF THE RDCNT 
CCW (DESCRIPTOR BYTE 9E) IS 
CHANGED TO: 


Filename.| 


. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 


ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 


X'31', SEEKADR+3,X'40!,5 


X'08',*-8 


SRCHIDE 
TIC 


X'05', LOAREA,X '40', BLK SIZE WRD 


X'22", ISISECV1,X'404,1 
X'23', IJISECV1,X'40',1 


X'31", SEEKADR+3,X'40!,5 


X'08 ‘* -8 


RDSEC 
SETSEC 
SRCHIDE 
TIC 


X'06', IOAREA,X '50',BLK SIZE RDD 


X'92' IDLOC,X'20',5 


X'31',SEEKADR+3,X'40',5 
X '08',*-8 

X'06', I[OAREA,X '40',8 
X'22" IJISECV1,X'00',1 


X'23', JISECV1,X'40',1 

X'31 ',SEEKADR+3,X '40',5 
X'08',*-8 

X'0D | KEYARG,X '60',K_ 
X'05', IOAREA,X '40',BLK SIZE 
X'23', IJISECV1,X'40',1 

X'31 ', SEEKADR+3,X'40',5 
X'08',*-8 

X'0E',KEYARG,X 'FO",Ky 
X'06', IOAREA,X'10',BLK SIZE 


CHART K 


RDID 





| SETSEC 


| SRCHIDE 
tic 

| wrkD 
WRD 

t SETSEC 
; SRCHIDE 
, TIC 


' RDKD 
, RDD 









YES IDLOC 


Specified | 


X'31 | SEEKADR+3,X'40',5 
X'08',*-8 

X'06', IOAREA,X'40',8 
X'22' IJISECV1,X'00',1 


X'23', ISISECVI,X'40',1 

X'31", SEEKADR+3,X'40!,5 
.X'08',*-8 

X'05', JOAREA,X'40', BLK SIZE 
X'23",JISECV1,X'40',1 

X'31', SEEKADR+3,X'40!,5 
X'08',*-8 

X'06!, IOAREA,X '50',BLK SIZE 
X'92',IDLOC,X'20',5 = 


X'31', SEEKADR+3,X'40",5 
X'08',*-8 

X'05' JOAREA,X'40',BLKSIZE 
X'22', IJISECV1,X'40',1 
X'23', IJISECV1,X'40',1 
X'31',SEEKADR+3,X '40',5 





'RDSEC 
{SETSEC 
'SRCHIDE 
X'08',*-8 j TIC 
X'06',IOAREA,X'10',BLKSIZE  'RDD 


THE RDD AND WRD CCW'S WILL BE CHANGED 


ACCORDINGLY. 


NO 


SRCHIDE 
, TIC 
} RDD 
| RDSEC 


| SETSEC 

| SRCHIDE 
TIC 

| WRD 
SETSEC 
1 SRCHIDE 
‘ TIC 
, RDD 
' RDID 


X'31 ',SEEKADR+3,X '40',5 
X'08',*-8 


X'06', IOAREA,X‘40',8 
X'22' ISISECV1,X'00', 1 


X'23',ISISECV1,X'40', 1 
X'31', SEEKADR+3,X'40",5 
X08 Po -8 


X'23',IJISECV1,X'40",1 
X'31',SEEKADR+3,X '40',5 
X'08',*-8 

X'06', IOAREA,X'10',BLKSIZE 


X'05', IOAREA,X'40",BLKSIZE 





SETSEC 
SRCHIDE 
| TIc 
| web 
SETSEC 
j SRCHIDE 





tic 
' 


RDD 
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DESCRIPTOR BYTES 





MACRO 


WRITE Filename, 1D 


VARUNB 


YES 


GENERATED 
CCW CHAIN 


X'31 "|, SEEKADR+3,X '40',5 
X'08',*-8 
X'0D',|KEYARG,X ‘60K, 


X'05',IOAREA,X '40',BLK SIZE 
X'92', IDLOC,X'20',5 








NO 


I 
| TIC 


| WRKD 
WRD 
{ RDID 





| SRCHIDE 


YES 


SPNUNB 


YES 


X'31', SEEKADR+3,X'40',5 
X '08',*-8 


X'06', IOAREA,X'40',8 
X'22", IJISECV1,X'00',1 





X'23'" IISECV1,X'40',1 

X'31', SEEKADR+3,X '40',5 
X'08',*-8 
X'OD',KEYARG,X'60', Ky 
X'05', IOAREA,X'40',BLK SIZE 
X'92 ,IDLOC,X '20',5 








X'31', SEEKADR+3,X '40',5 
X'08',* -8 
X'0D',KEYARG,X'60", Ky 
X'05', IOAREA,X'00',BLK SIZE 








| SRCHIDE 
ITIC 
\ WRKD 









NO 






SETSEC 
| SRCHIDE 


I Tic 
WRKD 


J WRD 
I RDID 
























No VERIFY 


NO 


VARUNB 


YES 





X'31',SEEKADR+3,X '40',5 
X'08',*=-8 

X'05', JOAREA,X'40',BLK SIZE 
X'92' IDLOC,X'20',5 


X'31', SEEKADR#+3,X'40',5 
X'08!,*-8 


{ 
TIC 


X'06',IOAREA,X'40',8 
X'22", IJISECV1,X '00',1 





X'23', JISECV1,X'40',1 | SETSEC 
X'31!, SEEKADR+3,X'40',5 ' SRCHIDE 
X'08!,*-8 {TIC 
X'0D',KEYARG,X'60',K, WRKD 

| WRD 


X'05', IOAREA,X '00',BLK SIZE 


CHART L 





SRCHIDE 


SPNUNB 


NO YES 


X'31', SEEKADR+3,X '40',5 
X '08',*-8 

X'06', IOAREA,X'40',8 
X'22' ISISECV1,X'00',1 


X'23', LIISECV1,X'40', 1 

X'31', SEEKADR+3,X'40!,5 
X'08',*-8 

X'05', IOAREA,X'40', BLK SIZE 
X'92!, IDLOC,X '20',5 


X'31',SEEKADE+3,X'40!,5 
X'08',*-8 : 
X'05', IOAREA,X'00!,BLK SIZE 














NO 


SRCHIDE 
Tic 

RDD 
RDSEC 


SETSEC 
SRCHIDE 
TIC 
WRD 
RDID 














NOTES: 


1, SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY THE 
FOLLOWING SEEK CCW: 


X'07', SEEKADR+1,X'00',6 


3. IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS IN THE RDCNT 
CCW IS CHANGED TO: 


Filename.|! 


4. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDSANDTHE BYTE COUNT (BLKSIZE) FOR 
THE ROD AND WRD CCW'S WILL BE CHANGED 

ACCORDINGLY. 





X31 | SEEKADR#3,X '40!,5 | SRCHIDE 
X'08',*-8 {TIC 
X'06', JOAREA,X'40',8 [RDD 
X22", ISECVI,X'00!,1 | RDSEC 







X'23', ISISECV1,X'40', 1 
X'31', SEEKADR+3,X '40',5 


| SETSEC 
t SRCHIDE 


X'08',* -8 | TIC 


X'05', IOAREA,X'00',BLKSIZE © | WRD 


War jo Axyazedoig - werborg pasusotT 
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DESCRIPTOR BYTES 


MACRO 





VARUNB 


NO 


YES 





GENERATED 
CCW CHAIN 


X'23', ISISECVO,X '40',1 | SETSEC 

X '39', SEEKADR+3,X '40',4 1 SRCHHAE 
X '08',*-8 TIC 
X'92' IDLOC,X'60',5 : RDID 
X'39|KEYARG,X '40', Ky ; SRCHKE 
X'08',*~-16 {TIC 
X'05',JOAREA,X'40',BLK SIZE 
X'22", IJISECV1,X '40',1 

X'23' ISISECV1,X'40',1 
X'29".KEYARG,X ‘605 Kz 


RDSEC 
| SETSEC 
: SRCHKE 
X'08',*=8 1 TIC 


X'06',JOAREA,X'10',BLKSIZE RDD 


WRITE Filename, KEY 





YES 





YES 


SPNUNB 














X'23', IJISECVO,X'40!, 1 
X'39', SEEKADR+3,X '40',4 
X'08!,*-8 
X'92", IDLOC,X '60!,5 
X'A9“KEYARG,X'60',Ky, 
X'08',*-16 

X '06'!, [OAREA,X'40',8 
X'22', LISECV1,X'00!,1 


X'23', LWISECV1,X'40'/1 
X'A9',KEYARG,X'60',Ky 
X'08',*-8 
X'05',LOAREA,X'40', BLK SIZE 
X'23', IJISECV1,X'40',1 

X'29'" KEYARG,X'60',Ky 
X'08',*-8 
X'06',LOAREA,X'10',BLKSIZE 


X'23', IJISECVO,X'40!,1 

X'39', SEEKADR+3,X'40!,4 
X'08',*~8 

X'39, KEYARG,X'40',K 
X'08',*-8 

X'05', IOAREA,X'40', BLKSIZE 
X'29!, KEYARG,X OK 
X'08',*-8 

X'06', OAREA,X'10!,BLKSIZE 





VERIFY 


NO 





























NO 


, SETSEC 


| SRCHHAE 


tic 

1 DID 

| SRCHKE 
I TIC 

I Rob 

| RDSEC 





| SETSEC 
1 SRCHKE 
I Tic 
WRD 
| SETSEC 
I SRCHKE 
: TIC 
RDD 


SETSEC 
| SRCHHAE 
I TIC 
I SRCHKE 
TIC 
t WRD 
! SRCHKE 
TIC 
, RDD 





VARUNB 


YES 





























X'23',IJISECV0,X'40',1 
X'39',SEEKADR+3,X'40',4 
X'08',*-8 
X'29',KEYARG,X'60',K, 
X'08',*-8 


X'05', IOAREA,X '40' BLK SIZE 


X!29',KEYARG,X'60',K, 
X'08',*-8 


X'06' JOAREA,X'50',BLKSIZE 


X'92' IDLOC,X'20',5 


X'23', IJISECVO,X '40',1 
X'39', SEEKADR+3,X '40!,4 
X'08',*-8 

X'92' IDLOC,X'60',5 
X'AILKEYARG,X'60', Ky 
X'08',*-16 

X'06', IOAREA,X'40',8 
X'22', IJISECV1,X '00',1 





X'23' IJISECV1,X'40',1 
X'A9,KEYARG,X '60,Ky. 
X'08',*-8 

X'05', IOAREA,X '40', BLK SIZE 


X'23'" IJISECV1,X'40",1 


X'29'"|KEYARG,X '60',5 
X'08',*-8 
X'06', LOAREA,X'10',BLK SIZE 





CHART M 








NO 


' SETSEC 
1 SRCHHAE 
I tic 
SRCHKE 
| TIC 

| web 
SRCHKE 
[TIC 

I Rpp 
RDID 





SETSEC 
SRCHHAE 
TIC 

RDID 
SRCHKE 
TIC 

RDD 
RDSEC 


SETSEC 
SRCHKE 
TIC 
WRD 
SETSEC 
SRCHKE 
TIC 

RDD 








SPNUNB 


YES 


X'23", IJISECVO,X 40,1 
X'39', SEEKADR+3,X '40!,4 
X'08!,*-8 
X'29',KEYARG,X'60,K, 
X'08!,*-8 

X'06', IOAREA,X ‘4018 
X'22', IJISECVI,X'00',1 








X'23" ISISECV1,X '40',1 
X'29' KEYARG,X '60', Ky, 
X'08',*-8 











NO 






) SETSEC 

| SRCHHAE 

Fic 

1 SRCHKE 

tric 

RDD 
RDSEC 









1 SETSEC 
SRCHKE 
iTIC 


X'06',LOAREA,X '40',BLKSIZE 


X'23" LISECV1,X'40',1 
X'29" KEYARG,X'60', Ky. 
X'08',*-8 


| SETSEC 
I SRCHKE 


X'06', IOAREA,X'50',BLKSIZE 


X'92', IDLOC,X'20',5 


X'23', WISECVO,X '40", 1 

X'39", SEEKADR+3,X '40!,4 
X'08',*-8 

X'29"|KEYARG,X ‘40",K, 
X'08',*-8 
X'05',LOAREA,X'40',BLKSIZE 
X'29" KEYARG,X 60", Ky 
X'08',*-8 

X'06', JOAREA,X '10',BLK SIZE 


! SRCHHAE 


| 
' TIC 
! SRCHKE 


TIC 


1 WRD 
SRCHKE 
, TIC 


| RDD 
1 
i 


NOTES: 


1. 








SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS ~ EXECUTE TIME 


. ALL CCW CHAINS ARE PRECEDED BY 


THE FOLLOWING SEEK CCW: 

X'07', SEEKADR+1 ,X '00',6 
IF RELATIVE ADDRESSING IS USED, 
THE DATA ADDRESS — IN THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
ARE CHANGED TO: 

SRCHHAE - Filename.$+3 

RDCNT - Filename.| 


THE CCW CHAINS SHOWN FOR SPNUNB 
RECORDS ARE THOSE INITIALLY GENERATED 


~ FOR SINGLE SEGMENT RECORDS (TYPE 00). 


THE CCW'S IN THE CHAINS ARE MODIFIED 
FOR MULTISEGMENT RECORDS AND THE BYTE 
COUNT (BLKSIZE) FOR THE RDD AND WRD 
CCW'S WILL BE CHANGED ACCORDINGLY. 


X'23', ISISECVO,X'40',1 
X'39 |, SEEKADR+3,X '40',4 


| SETSEC 
 CRCHHAE 


X'081,*-8 , TIC 


X'29',KEYARG,X'60', Ky SRCHKE 
X'08',*-8 TIC 
X'06', IOAREA,X'40!,8 _ TROD 
X'22', ISECV1,X'00, 1 RDSEC 


X'23', IJISECV1,X'40',1 | SETSEC 
X'29', KEYARG,X '60',Ky. SRCHKE 
X'08',*-8 ITic 

xX 105", IOAREA,X '40', BLK SIZE WRD 

1 SETSEC 


X'23', IJISECV1,X'40',1 
X'29', KEYARG,X'60',Ky SRCHKE 
X'08',*-8 j TIC 
X'06',JOAREA,X'TO',BLKSIZE  'RDD 


d pesusott 
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DESCRIPTOR BYTES 


YES: 





MACRO 


WRITE Filename, KEY 


VARUNB 





GENERATED 
CCW CHAIN 


X'23', ISECVO,X'40,1 


X'39', SEEKADR+3,X '40',4 


X'081,*-8 


X'92', IDLOC,X'60',5 
X'AGKEYARG,X'40', Ky 


X'08',*-16 


X'05' JOAREA,X '00',BLKSIZE 









SETSEC 


1 SRCHHAE 


TIC 


IRDID 
SRCHKE 
{TIC 


WRD 











SPNUNB 


YES 


X'23", ISECVO,X'40', 1 

X '39', SEEKADR+3,X'40',4 
X'08',*-8 

X'92!, IDLOC,X'60!,5 
X'A9.KEYARG,X 604K 
X'0B',*-16 

X'06!, IOAREA,X'40',8 
X'22', IJISECV1,X'00!,1 


X'23", WISEGV1,X"40",1 
X'A9!,KEYARG,X '60',Ky 
X'08',*~8 

X'05', IOAREA,X '00',BLK SIZE 


X'23',JISECVO,X '40',1 
X'39', SEEKADR+3,X'40',4 


YES 





| SETSEC 

| SRCHHAE 
TIC 

} RDID 
SRCHKE 
y TIC 

1 RDD 

| RDSEC 


1 SETSEC 
SRCHKE 
I TIC 


WRD 


1 SETSEC 
SRCHHAE 


X'08',*-8 iTIc 


X'AI| KEYARG,X'40',K, 


SRCHKE 


X'08',*-8 ITIC 


X'05',IOAREA,X'00',BLKSIZE | 


WR 


D 








No VERIFY 





VARUNB 





X'23!, WISECVO,X'40!,1 
X'39', SEEKADR+3,X'40!,4 
X'08!,*-8 
X'29!,KEYARG,X'404,Ky 
X'08!,*-8 | 
X'05',LOAREA,X '40',BLK SIZE 
X'92', IDLOC,X'20',5 


X'23' IJISECV1,X'40',1 
X'39', SEEKADR+3,X'40',4 


X'92' IDLOC,X'60',5 





1 SETSEC 
SRCHHAE 
'TIc 


[ SRCHKE © 


[Tic 


WRD 


| RDID 
| 





"1 SETSEC 
SRCHHAE 

X'08',*-8 | TIC 

1 RDCNT 


I 
X'AD' KEYARG,X'60", Ky, | SRCHKE 


X'084,*-16 {TIC 
X'06', IOAREA,X'401,8 'RDD 


X'22' IJISECV1,X'00',1 


X'23', ISECV1,X'40',1 
X'A9',KEYARG,X'60!,K 


X'08',* -8 ITIC 


X'05', JOAREA ,X'00',BLK SIZE | wep 





CHART N 


RDSEC 


SETSEC 
| SRCHKE 


SPNUNB 





X'23', ISISECVO,X '40', 1 
X'39', SEEKADR+3,X '40',4 
X'08',*-8 

X'29" KEYARG,X 60", Ky 
X'08',*-8 
X'06',LOAREA ,X'40',8 
X'22' LJISECV1,X'00', 1 


X'23', JISECV1,X'40!, ] 
X!29, KEYARG,X'60',Ky 
X'08!,*-8 


X'05', LOAREA,X'40',BLK SIZE 


X'92', IDLOC,X'20',5 


X'23', JISECVO,X'40',1 
X'39", SEEKADR+3,X'40!,4 
X'08',*-8 
X'29'|KEYARG,X'404,K 
X'08',*-8 

X'05',IOAREA,X '00', BLK SIZE 





SETSEC 
SRCHHAE 
ItIc 
SRCHKE 


ITIC 


RDSEC 


| SETSEC 
1 SRCHKE 
| TIC 
1 WRD 
 RDID 


SETSEC 
SRCHHAE 


| 
y Tic 


1 SRCHKE 


tic 










| X23, IISECVO,X'40',1 









NOTES: 





Tt. SHADED AREAS - ASSEMBLY TIME 


UNSHADED AREAS - EXECUTE TIME 


. ALL CCW CHAINS ARE PRECEDED BY 


THE FOLLOWING SEEK CCW: 


X'07',SEEKADR+1,X'00',6 


. IF RELATIVE ADDRESSING IS USED, 


THE DATA ADDRESSES IN THE SRCHHAE 
CCW AND THE RDCNT CCW RESPECTIVELY 
ARE CHANGED TO: 


SRCHHAE - Filename.$+3 


RDCNT 


- Filename.| 


. THE CCW CHAINS SHOWN FOR SPNUNB 


RECORDS ARE THOSE INITIALLY GENERATED 
FOR SINGLE SEGMENT RECORDS (TYPE 00). 
THE CCW'S IN THE CHAINS ARE MODIFIED 
FOR MULTISEGMENT RECORDS AND THE BYTE 
COUNT (BLKSIZE) FOR THE RDD AND WRD 
CCW'S WILL BE CHANGED ACCORDINGLY. 





t SETSEC 


; SRCHHAE 











X'39", SEEKADR+3,X'40',4 


X'08',*-8 'TIC 
X'29 "| KEYARG,X'60',K SRCHKE 
X'08',*-8 {TIC 
X'06' JOAREA,X '40',8 | RDD 





X'22' ISISECV1,X'00',1 RDSEC 





X'23', ISECV1,X'40',1 | SETSEC 
X'29', KEYARG,X'60!,Ky I SRCHKE 
X'08!,*-8 ric 

X'05!, IOAREA,X'00', BLK SIZE WRD 
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‘DESRIPTOR BYTES 








GENERATED 
CCW CHAIN 
(READ RZERO) 


X'23', IJ ISECVO,X '40',1 
X'31 | Filename.F,X'40',5 
‘| X'08,*-8 

X'06', Filename.K,X'00',8 










X'23', LJISECV0,X'40',1 

X'31 | Filename.F,X'40',5 
X'08',*-8 
X'05',Filename.K,X'40',8 
X'3T',SEEKADR+3,X '40',5 
X'08',*-8 

X'1D' Filename.C,X'E0',8 
X'0D",KEYARG,X'E0",K, 
X'05',LOAREA,X '40',BLKSIZE 
X'31F tlename.F,X'40!,5 
X'08'*-8 
X'06',Filename.K,X'50',8 

| X'31 | SEEKADR+3,X'40!,5 
X'08',*-8 
X"1E',Filename.C,X'F0',8 
X'0E,KEYARG,X'FO',K, 
X'06',LOAREA,X'10',BLKSIZE 








MACRO 


WRITE Filename,AFTER 


: SETSEC 


1 SRCHIDE 


ITIC 
; RDD 


| SEFSEC 

1 SRCHIDE 
{TIC 
}WRD 

: SRCHIDE 
TIC 

| WRCKD 

: WRKD 

1 WRD 
SRCHIDE 
ITIC 

RDD 

1 SRCHIDE 
; TIC 
 RDCKD 
'RDK 


t 
\ RDD 












YES 


(READ RZERO) 
X'23', IJISECVO,X'40',1 
X'31',Filename.F,X'40',5 
X'08',*-8 
X'06',Filename.K.,X'00',8 


X'23', IJISECVO,X '40',} 
X'31',Filename.F,X'40',5 
X'08',*-8 
X'05',Filename.K ,X'40',8 
X'31 |, SEEKADR+3,X '40',5 
X'08',*~8 
X'1D',Filename.C,X'E0',8 
X'05', IOAREA,X'40',BLKSIZE 
X'31'Filename.F,X'40',5 
X'08',*-8 

X'06',Filename.K ,X'50',8 
X'31 ', SEEKADR+3,X'40',5 
X'08',*-8 
X'TE',Filename.C,X 'F0',8 
X'06', IOAREA,X'10',BLK SIZE 

















SETSEC 
| SRCHIDE 
{ 

| Tic 


RDD 






| SETSEC 
1 SRCHIDE 
TIC 

; WRD 

I SRCHIDE 
, TIC 

| WRCKD 
, WRD 

1 SRCHIDE 
Itc 

| op 

| SRCHIDE 
I tic 

I RDCKD 


| 
| RDD 


CHART O 








YES 


(READ RZERO) 
X'23', LJISECVO,X '40', 1 
X'31'Filename.F,X'40',5 
X'08',*-8 
X'06',Filename.K,X'00',8 


X'23", LJISECVO,X '40', 1 
X'31 ',Filename.F,X '40',5 
X'08',*-8 
X'05',Filename.K,X'40',8 
X'3T',SEEKADR+3,X'40',5 


X'08',*-8 
X'ID',Filename.C,X'E0',8 
X'0D',;KEYARG,X "EO", Ky 
X'05', IOAREA,X'00',BLKSIZE 













EYLEN NO 
Specified 


SETSEC 
| SRCHIDF 






| SETSEC 
1 SRCHIDE 
TIC 

| WRD 

| SRCHIDE 
I tic 

| weckp 
| WRKD 

| WRD 

l 








NOTES: 


1. SHADED AREAS - ASSEMBLY TIME 
UNSHADED AREAS - EXECUTE TIME 


2. ALL CCW CHAINS ARE PRECEDED BY 
THE FOLLOWING SEEK CCW: 


X'07',SEEKADR+1,X '00',6 


3. THE CCW CHAINS SHOWN FOR SPNUNB RECORDS 
ARE THOSE INITIALLY GENERATED FOR SINGLE 
SEGMENT RECORDS (TYPE 00). THE CCW'S IN 
THE CHAINS ARE MODIFIED FOR MULTISEGMENT 
RECORDS AND THE BYTE COUNT (BLKSIZE) FOR 

_ THE RDD AND WRD CCW'S WILL BE CHANGED 
ACCORDINGLY. 






(READ RZERO) 
X'23' IJISECV0,X'40",1 SETSEC 
X'31 " Filename.F,X'40',5 SRCH IDE 
X'08',*-8 TIC 





X'06',Filenam e.K,X'00',8 





RDD 


X'23',JJISECV0,X'40 uw { SETSEC 
X'31',Filenam e.F,X'40',5 | SRCHIDE 
X'08!,*-8 'tic 
X'05',Filename.K ,X'40',8 I WRD 
X'31', SEEK ADR+3,X'40',5 | SRCHIDE 


X'08',*-8 I tic 
X'ID',Filename.C,X 'E0',8 W RCKD 


X'05',IOAREA,X '00',BLK SIZE 4 WRD 
Hy 
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CNITIALIZATION AND TERMINATION 


When a DASD file is processed by the Direct 
Access Method, all extents specified by the 
user must be opened before any data is 
transferred. 


The DAM Open logical transients make all 
the extents for the file available for use 
by the problem frogram. To accomplish 
this, the open routines check and create 
standard DASD labels or, in the case of 
nonstandard labels, pass control to the 
user for label processing. 


To open a file, the open routines use 
label information supplied by the user in 
job control statements and stored in the 
label information area. This information 
is used either to check or create the 
actual file labels in the VTOC (Volume 
Table of Contents) on the DASD volume 
containing the file. Refer to VSE/Advanced 
Functions DASE Labels for details of the 
label informaticn area and the standard 
DASD file labels processed by logical IOCS. 


Close is required for DASD files 
processed by the Direct Access Method to 
invoke a FREEVIS for the DTFDA extension 
and handle the user standard trailer labels 
if specified. 


DAM CFEN CHART 01 


For input files, the volume and format-1 
labels are checked against the SYSRES label 
information supplied by the user's // DLBL 
job control card. User labels are then 
processed, providing that LABADDR=address 
has been specified in the DTFDA macro 
defining the file. Finally, EXTENT 
information is passed to the user for 
checking and/cr processing (See Figure 16). 





























Ce wee See ee a SS ee eS ee 
{Byte 0 {Extent Type | 
== 2S ee ee 
|Byte 1 {Extent Sequence Number | 
(SS = ————— —--—-—-—-——— | 
|Bytes 2 to 5 |{Extent Lower Limit | 
| -—-----—_-_+-—___-+|----_______ | 
{Bytes 6 to 9 |Extent Upper Limit | 
| -—------—--—--+-—— Se | 
{Bytes 10, 11 |Symbolic Unit | 
== = | 
{Byte 12 {Original Bin Number | 
j {| (0 for disk) i 
|-+-——— aa a ——| 
{Byte 13 {Present Bin Number | 
{ { (0 for disk) | 
nn et i re NE 
Figure 16. Format of Extent Information to 


User 


For output files, extents are checked to 
ensure that they do not overlap the VTOC or 
other extents. Labels are created and 
written in the VTOC, and user labels are 
processed, if required. 


Refer to VSE/Advanced Functions 
Diagnosis Reference: LIOCS Volume 4 for 
detailed descriptions of common DASD 
routines that open direct access method 
files. 


Relative Addressing 


When relative addressing is specified for a 
file, the open routines convert extent 
information supplied as actual physical 
DASD addresses into a relative addressing 
format. The converted extent information 
is stored at the end of the DIF table, ina 
table (DSKXTNT) at location &Filename.P+48. 
The 12 bytes preceding the DSKXTNT table 
contain device-dependent alteration factors 
(4 bytes each) used to convert the extent 
limit addresses. The format of the DSKYTNT 
table and the location of the alteration 
factors is illustrated in Figure 17. The 
alteration factors are summarized in Figure 
18. 





Eee a 
Re a a a ae 
oe oe es ee 

a a eee 

1 ’ 





First Extent 







Second Extent 


Third Extent Xg3=Xgt(V3-L3+1) 


Xn=Xy_4 tH(V_-b yt) 

ere ferry 
i 

——_ — aie ——<$_ 


' ! 
TTT2 M B2 TTT1 


Last Extent 


End of Table 





TTT1, L = relative track number of the 
extent lower limit; that is, the 
number of tracks from cylinder 0, 
track 0 to the lower limit of the 
corresponding extent. (3 bytes) 

TTT2 = cumulative total tracks in 
current extent plus previous 
extents in the table. (3 bytes) 

B2 = second byte of bin number (BB), 0 
for a disk device. (1 byte) 

M = symbolic unit number, incremented 
by 1 for each new symbolic unit. 
(1 byte) 

V = number of tracks from cylinder 0, 
track 0 to the upper limit of 
corresponding extent. 

Figure 17. DSKXTNT Table for Relative 


Addressing 
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Se Pg eae ef eee a pe Ee peas ee one Stang | an et nea ae — 
| Factor | 2311 | 2314/2319 | 3330 | 3340 | 3350 | 
| —--—-——- 4 -—---- ---- + +4 --- — 
{ C1 | 1 | 1 {| 4864 | 3072 | 7680 | 
i | | [ [ l | 
| C2 1 10 | 20 | 19 | 12 {| 30 | 
{ | i | { i l 
| H1 | 1 | 1 | 1 | 1 | 1 I 
| ne ee ne | 





Figure 18. Alteration Factors for Relative Addressing 


An actual physical extent address is value obtained is the L (or TTT1) value and 
converted to a relative address in the is stored in the DSKXTNT table (see Figure 
following manner. Each of the four bytes 17). 

(CCHH) of the actual address are handled 

separately and are referred to as C1, C2, If the conversion is performed for the 
H1, and H2. Starting with C1, the first upper limit address of the extent, the 
three bytes of the actual address are converted value is increased by 1 and TTT1 
multiplied, one at a time, by the is subtracted from the result. The value 
respective device-dependent alteration obtained from this calculation is the total 
factor (see Figure 18). The result of each number of tracks included in the extent. 
multiply operation is added into an The total number of tracks in the extent is 
accumulating register. To complete the then added to the total number of tracks of 
conversion, H2 is added to the accumulated all previous entries to oktain the TTT2 
result. If the conversion is performed on value for the current extent entry in the 


the lower limit address of the extent, the DSKXTNT table (see Figure 17). 
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Chart 01. DAM Cpen 


From Open Monitor 
$$BOPEN1 


1. Links the LTA to 
the OPEN/CLOSE 
SVA Phase. 


$IJJGTOP * 


1. Builds and verifies 
extents in the 
VTOC. 


. Handles the extent 
exit/user label 
interfaces. 


$$BOSVLT * 


1. Links the SVA Phase 
back to the LTA. 


SVC 2 FETCH 
$$BOPEN 





* Documented in VSE/Advanced Functions Diagnosis 
Reference LIOCS Volume 4 SAM for DASD. 
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DAM CLOSE 


Objective: To read or write standard user 
trailer labels, and to test for track hold. 


Entry: From the Close Monitor or froma 


message writer phase. 


Exit: To the CIcse Monitor, $$BCLOSE; to 
$$BOMSG1 if a message is required; or to 
$$BOSDC2 to free any tracks. 


Method: For input files, phase $$BODACL 
initializes the search CCW with a key 
argument of the first standard user trailer 
label (UTLO). The label is read and 
control is passed to the user's label 
routine. Processing of standard user 
trailer labels ccntinues until either the 
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maximum number of trailer labels are read 

(8 for disk devices), or a file mark (a UTL 
with a data length of 0) is read. Control 
then returns to the Close Monitor. 


For output files, phase $$BODACL 
initializes the search CCW with a key 
argument of UTLO, the end-of-file mark 
written after the last UHL. When the UTLO 
label is found, control passes to the 
user's label routine. Control returns to 
$$BODACL to write the standard user trailer 
label on the user's label track. fThe first 
standard user trailer label written is 
identified by UTLO and is written over the 
end-of-file mark previously identified by 
UTLO. A new end-of-file mark (a standard 
user trailer label with a data length of 0) 
is written and the Close Monitor is fetched 
after all standard user trailer labels are 
processed. The maximum number of standard 
user trailer labels permitted (excluding 
the end-of-file mark), is 8 for a disk 
device. 
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The indexed sequential access method (ISAM) 
permits processing DASD records in both 
random and/or sequential order by control 
information. For random processing, the 
user supplies the control information 
(record key) of the desired record to ISAM, 
and then issues READ or WRITE macro 
instructions to transfer the specified 
record. For sequential processing, the 
user specifies the first record to be 
processed, and then issues GET and/or PUT 
macro instructions to retrieve or insert 
records in sequential order by record key. 
Variations in macro instructions permit: 


e hU€U A logical file of records to be loaded 
onto DASD (created). 


e Individual records to be read fron, 
added to, or updated in the file. 


RECORD TYPES 


Logical records in an ISAM-organized file 
must be fixed-length records either blocked 
or unblocked. Each physical record in the 
file must contain a key area. If the 
records are blocked, the record key 


























(control information) of the highest (last) 
logical record in the block is stored in 
the key area of the block. 


An I/O area must be specified for each ISAM 
file to be processed in a problem progran. 
This I/O area must be defined to contain 
sufficient space for the data area. If 
unblocked records are to be retrieved 
sequentially or records are to be loaded or 
added, space for a key field is required. 
Space for the count area must be provided 
when the file is being loaded or additions 
to the file are being made. Space for a 
sequence-link field is required when 
additions are to be made to the file or 
when records are retrieved from a file. 

The sequence-link field is used for 
overflow records (refer to the section "Add 
Records toa File"). 


Figure 19 shows the ISAM T/O area 
requirements. 









































Cee ee ee eg ee ee ee oe ee eee ee ee a ee es =) soe ge ee ee —T 
{ | | | Sequence | | 
| Furction } Count] ! Link | Data | 
SS SSS eee Sahat SEER eras Came a | 
{Load - Unblocked Records | 8 |Key Length] <= | Record Length | 
(= ee ee | 
{Load - Blocked Records | 8 |Key Length| -- {Record Length X Blocking | 
| | | | | i | Factor 
(ee SS | 
{Add - Unbliccked Records ij 8 |Key Length| 10 {Record Length | 
(ee ee = —— ——| 
{Add - Blocked Fecords {| 8 {Key Length{ -- |Record Length X Blocking | 
i | | | | Factor i 
{ {--——---|———— —4}—-———-———— | ort ———-- l 
| | 8 [Key Length] 10 {Record Length | 
| ---—— SS == SSS [ 
|Random Retrieve - Unblocked | - | ] 10 {Record Length | 
|Records | | | | | 
= ae ee re SSS ——— | 
{Sequential Retrieve - | - [Key Length] 10 |Record Length | 
{Unblocked Records l ; ; | | 
(==----= = eer re flee a en fe en nf re cnn | 
{Random or Sequential Retrieve -| - | | -- |Record Length (Including | 
{Blocked Records | | { |Keys) X Blocking Factor | 
| | | --——- -~-----—- ~~ —- ---—- ——— | or *¥ -——---—--- -___--______—____-—-- | 
| | - | | 10 {Record Length | 
ic i cas paca ae cas mc pc em ee al I i a a a i ee a ae aac ties een pap amanaianenmeammacel 
* Whichever is larger. 
/ : 
Figure 19. ISAM I/O Area Requirements (in bytes) 
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The format of the sequence= link field of an overflow record or the index- level pointer is MBBCCHHRFP: 
2311/2314/2319/3330/3340 Disk 

M = Extent Sequence Number 

BB = 00 


CC = Cylinder Number 


HH = Head (Track) Number 


R = Record Number 


F = (ccecciii) Entry Type and Index Level. See Note 1. 





P = Pointer type. See Note 2. 


Note 1: F =ccccciii © 


Entry Type- (ceccc) Index Level (iii) DASD Address Information 


00000 = Normal Entry (Unshared Track) 000 = Track Index 
001 - Cylinder Index 
010 = Master Index 
00001 - Normal Entry (Shared Track) 000 = Track Index R=N (Points to First Data Record on the Track) 


00010 - Overflow Entry (End) 000 = Track Index or Sequence - Link Field = 
00011 - Overflow Entry (Chained ) 000 = Track Index or Sequence - Link Field 


00100 = Dummy Entry (End) 000 = Track Index M through R = 0 
001 - Cylinder Index 
010 = Master Index 

00101 ~ Dummy Entry (Chained) 001 - Cylinder Index M through H Points to First Track on Next Cylinder, R =0 
010 - Master Index 


00110 - Inactive Entry 000 - Track Index M through R = 0 
001 - Cylinder Index 
010 = Master Index 




















Note 2: 


P = Seek Op- Code 


Dummy Entry. (Chained ) Master and Cylinder Indexes — 


Figure 20. Format of Sequence-Link Field/Index Level Pointer 


LOAD: To create or extend a disk file of ADD, UNBLOCKED RECORDS: The output area for 
blocked or unblccked records. This area adding unblocked records to an ISAM 

must be defined with enough capacity for an organized file must be defined with enough 
8-byte count field, a control information capacity for an 8-byte count field, a 

field (key area), and the data record(s). control information field (key area), and a 
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data record area. The data record area 
must have space for a 10-byte sequence-link 
field that is used in conjunction with 
overflow records (refer to the section "Add 
Records to a File"). The sequence-link 
field is required when a record is written 
on an overflow track. ISAM determines the 
correct sequence link and stores this 
information at the beginning of the data 
section of the I/O area. When the 
sequence-link field is not used, the ten 
unused bytes fall at the end of the data 
section and are ignored. Figure 20 shows 
the format of the 10-byte sequence-link 
field. 


adding blocked records to an ISFMS 
organized file rust contain enough space 
for an 8-byte count field, a control 
information field (key area) and a data 
section large enough to contain the block 
of logical records. The minimum size for 
the data section is one lcgical record plus 
10 bytes to be used for a sequence-link 
field when required. 


input area for reading unblocked records 
must contain sufficient. capacity for a key 
area and a data area. The data area must 
include enough space for the logical record 
plus 10 bytes for the sequence-link field 
of overflow records. If a record does not 
have a sequence-link field, the extra 10 
bytes in the I/O area fall at the end of 
the data section and are ignored by the 
program. 


input area for reading unklocked records 
must contain space for a data area. The 
data area must include enough space for the 
logical record plus 10 bytes for the 
sequence-link field of an overflow record. 
If a record does not. have a sequence-link 
field, the extra 10 bytes in the I/O area 
fall at the end of the data section and are 
ignored by the program. 


for reading blocked records must contain 
space for a data area. The data area must 
be large enough to contain a full block of 
records. The minimum size of the data area 
is one logical record plus 10 bytes for the 
sequence-link field used with overflow 
records. | 


When blocked or unblocked records are to 
be retrieved and processed directly in the 
I/O area, a register must be specified. 
This register is used for indexing, to 
point to the beginning of each logical 
record when it is needed for processing. 





When a work area is specified on input, 
ISAM moves each record from the I/O area to 
the work area. The problem program can 
then process the record in the work area. 
When a work area is specified on output, 
ISAM moves the record from the work area to 
the I/O area in preparation for 
transferring the record to DASD storage. 

If a work area is specified, an I/O. 
register is not required. Figure 21 shows 
the ISAM work area requirements. | 




















c Pet eg ee tage ye Pe gegen a ee oie era ee ee 
| | Unblocked | Blocked | 
{ | Records | Records | 
l cee aff rere cen a meee afer emt at 
| Load } KL#DL or 10* { DL or 10* | 
; : | | | 
| Add | KL4+DL or 10* | DL or | 
{ | | (KL+10) * | 
| | i [ 
| Random | DL | DL | 
| Retrieve | | | 
| | | | 
| Sequential | KL+DL | DL | 
| Retrieve { | { 
{ A cco | 
|Where: K = Key { 
| D= Data | 
{ .. L = Length | 
i i 
{* Whichever is larger. { 
| rece nie aise ceo ease canes i aia css Se Ce eae ae eee ee | 


ISAM Work Area Requirements (in 
bytes) 


Figure 21. 


OVERFLOW AREAS 


The location of the overflow area(s) for a 
logical file may be specified by the user. 
The overflow areas may be built by one of 
three methods: . 


1. Overflow areas for records may be 
located on each cylinder within the 
prime data area that is specified by a 
job control extent card for the data 
file. In this case, the user must 
specify the number of tracks to be 
reserved for overflow on each cylinder 
occupied by the file. The overflow 
records that occur within a particular 
cylinder are written in the cylinder 
overflow area for that cylinder. The 
humber of tracks to be reserved for 
each cylinder overflow area must be 
specified in the DTFIS entry CYLOFL 
when a file of records is to be loaded 
and when records are to be added to an 
organized file. 
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2. An independent overflow area may be 
specified for storing all overflow 
records for the logical file. In this 
case, a job control EYTENT card must be 
included when the program is executed 
to specify the area of the volume to be 
used for the overflow area. This area 
may be on the same volume with the data 
records, or on a different volume that 
is online. However, it must be 
contained within one volume. (It must 
be the same kind of device as that 
contatning the prime data area.) 


3. Cylinder overflow areas (method 1) and 
an independent overflow area (method 2) 
may be used in combination. In this 
case, overflow records are placed first 
in the cylinder overflow areas within 
the data file. When any cylinder 
overflow area becomes filled, the 
additional overflow records from that 
cylinder are written in the independent 
overflow area. The specifications 
required for both methods 1 and 2 must 
be included for this combined method of 
handling overflows. 


All records placed in the overflow area 
will be in the unblocked format and will 
have a sequence-link field prefixed to each 
record. There rust always be one prime 
data track available (for a DASD record 
that has a data length of 0) when additions 
are being made to the last track in the 
prime data area containing records. The 
format of the overflow area upper limits 
(MBBCCHHR) is shown in Figure 29. 


INDEXES 


As ISAM loads the records, it creates a set 
of two or three indexes to be used to 
control the processing and location of the 
data records. Two indexes, the track index 
and the cylinder index, are always built 
for each file. The third, a master index, 
is built only when specified by the user. 

A master index should be specified only for 
large files. As a guideline, if a cylinder 
index occupies less than five tracks, it is 
usually faster to search only the cylinder 
index (followed by a search on the track 
index) than to search also a master index. 


Indexes are developed as a series of 
entries, each including the address of a 
DASD track and the highest (last) record 
key on that track or cylinder. Each entry 
is a separate DASD record composed of a key 
area and a data area. The key area 
contains the highest key on the track or 
cylinder, and its length (number of bytes) 
is the same as the key-area length 
specified by the user for the data records. 
The data area of each index record is 10 
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bytes in size and contains the physical 
address of the logical record or of another 
index. Figure 20 shows the format of the 
10-byte index level pointer (index data 
area). 


Track Index (TI) 


The lowest level index for logical file is 
the track index. This index has two 
important functions. 


e Point to the correct track in the 
cylinder that contains the specified 
key. 


e Provide direct linkage to the record 
overflow areas. 


“Each track index is built on the cylinder 


that it is indexing. The track index is 
located on the first track of each 
cylinder. The index can occupy a partial 
track, a full track, or more than one 
track. If the track index does not fill a 
track and if the remaining portion is large 
enough to hold any prime data records, then 
prime data records are stored on the 
remaining portion of the track. 


The track index can contain the 
following types of entries: 


Normal Entry - Unshared 
Normal Entry - Shared 
Overflow Entry - Chained 
Overflow Entry - End 
Dummy Entry - End 
Inactive Entry. 


When first created, the track index is 
formatted with two entries for each track 
used on the cylinder. These two entries 
are the normal entry and the overflow 
entry. Each entry is a DASD record 
containing a key area and a data area. 
Figure 22 is an example of a track index 
built for the prime data area of a logical 
file utilizing eight tracks on a cylinder. 


The normal entry is the first of the two 
entries. After a track is loaded with 
records for a file, this entry has in its 
data area the address of the track 
referenced by the entry. The key of the 
last record on the track is maintained in 
the key area of the normal entry. The key 
area is changed each time a record is added 
to the track, so that it always reflects 
the key of the last record on the track. 
(Refer to the section "Add Records to a 
File".) When the first track containing 
prime data records is shared with the last 
or only track of the track index, the data 
area cf the track index normal entry is 
modified to indicate a shared entry. 
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TRACK INDEX 


COCR Track 1 Key Track 1 Key Track 2 Key Track 2 
75 Address 75 Address 150 Address 150 Address 
D K D D K D K D 


Key Track 3 Key Track 3 ne etc, ne, 
240 Address 240 Address 
K D K: D 


oo 


Dummy Entry 


K = Key Area 
D = Data Area 
COCR = Cylinder Overflow Control Record (RO) 


Figure 22. 


The overflow entry is used both in the 
track index and in the sequence-link field 
of an overflow record. Refer to the 
section "Add Records to a File" for a 
description of the overflow entry in the 
sequence-link field. The overflow entry is 
required for handling overflow chaining 
when additional records are inserted into 
the file. Before a record is added to a 
track, the track index overflow entry for 
that track is similar to the normal entry 
in that they both contain the key of the 
last record on the track and the address of 
the track. Note that, at this point, the 
last record on the track is the last record 
placed on the track when the file was 
Originally loaded. With overflow records, 
the data area of the overflow entry is 
changed to reflect the address of the 
lowest record in the overflow chain. An 
overflow chain is developed for each track. 
The key area cf the overflow entry is not 
changed, but always contains the key of the 
highest record, because records added to a 
track always have keys lower than the 
highest key originally loaded onto the 
track. The technique used to add records 
is explained in the section "Add Records to 
a File", 


The two types of overflow entries in the 
track index are overflow chained entries 
and overflow end entries (see Figure 20). 
The data field cf the track index overflow 
entry is initially set to indicate an 
overflow end entry. If an overflow chain 
is later built, the overflow end entry 
indicates the last overflow record in the 
chain. An overflow chained entry is built 
to indicate an overflow chain exists. The 
data field of an overflow chained entry 
contains a pcinter to the lowest record in 
the overflow chain. 


Schematic Example of a Track Index 


—_ —_ — | Key Track 8 Key Track 8 
980 Address 980 Address 
K D K D 


The last entry on a track index is 
always a dummy end entry. The dummy end 
entry indicates the end of the track index 
and indicates that any following records 
are logical file data records. 


The key area of the dummy record is the 
same length as the user's key length and is 
filled with X'F's. The data field is the 
same length as the normal entries but is a 
null field. 


Inactive track index entries are built 
during the load operation. For a 2311 DASD 
device type, inactive entries are written 
for the unused portion of the prime data 
extent. For all other DASD device types, 
inactive entries are written only for the 
unused portion of the last cylinder 
containing prime data records. The key 
area of inactive entry is filled with X'F's 
and is the same length as the user's key 
length. The data field is the same length 
as the normal entry. See Figure 20 for the 
format of the track index data area 
entries. 


When the cylinder overflow option is 
specified by the user, record zero (track 
descriptor record) of track zero in the 
track index is used as a Cylinder Overflow 
Control Record (COCR). This entry is set 
up,in the data area of record zero (RO). | 
The address of the last overflow record on 
the cylinder and the number of tracks 
remaining in the cylinder overflow area are 
maintained by ISAM in this record. The 
format of the COCR is HHROOTOO, where HHR = 
Address of last overflow record on 
cylinder. T = Number of tracks remaining 
in the cylinder overflow area. The COCR 
format is shown in Figure 23. 
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H B 


Address of Last 


Overflow Record 
on Cylinder 


Number of Bytes 
Remaining on Track 
(Zero for Fixed 
Length Record) 
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B T 
Number of 
Track Remaining 
in Cylinder 
Overflow Area 


Reserved 





Figure 23. 


CYLINDER INDEX 


Cylinder 1 
Track 1 
Address 


Cylinder 2 


Key Track 1 


1850 


Address 





Dummy Entry 
K = Key Area 
D = Data Area 


Cylinder Overflow Control Record (COCR) 


‘Cylinder 9 
Track 1 
Address 





Figure 24. Schematic Example of a Cylinder Index 


Cylinder Index (CI) 


The cylinder index is present for all 
ISAM-organized files. It is an 
intermediate level index used to point to 
the ccrrect track index. 


The cylinder index can contain the 
following types of entries: 


Normal Entry 

Dummy Entry - Chained 
Dummy Entry - End 
Inactive Entry. 


A cylinder index is built by ISAM to 
contain one index entry for each cylinder 
in the prime data area of the file. This 
entry contains the highest record key 
associated (in the cylinder or a 
corresponding overflow area) with the 
cylinder, and the address of the track 
index for that cylinder. Figure 24 is an 
example of a cylinder index built for a 
file requiring nine cylinders. The 
cylinder index can be located wherever the 
user chooses except on one of the cylinders 
that contain data records for the file. It 
must be on a separate cylinder or it can be 
placed on a separate volume that will be 
online whenever the logical file is 
processed. The cylinder index can also be 
located on one or more successive 
cylinders. When more than one cylinder is 
required, the last entry on each cylinder 
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is a dummy chained entry that points to the 
first track of the next cylinder. However, 
the cylinder index cannot be continued from 
one volume to another. A job control 
EXTENT card must be used to specify the 
correct location for this index. 


The last entry in the cylinder index is 
a dummy end entry. The key of the dummy 
entry is the same length as the user's key 
length and contains bytes of all one-bits. 
The data field is of the same length as the 
normal entries, but is a null field. 


Inactive cylinder index entries have the 
same format as the track index inactive 
entries. They are written to provide for 
future expansion of the file and for OS/VS1 
and OS/VS2 compatibility. An inactive 
cylinder index entry is written for each 
track in the cylinder containing track 
index inactive entries. See Figure 20 for 
the format of the cylinder index data area 
entries. 


Master Index (MI) 


The master index is the highest level index 
for a logical file built by ISAM. This. 
index is optional; and if required, must be 
specified by the user in the DTFIS entry 
MSTIND. 
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MASTER INDEX 


Key Track X +1 Key Track X +2 Key TrakX+3 [foo Key Track X + 20 
4730 Address 8560 Address 12750 Address 85610 Address 
K D K D D K 


a 


Dummy Entry 


K = Key Area 
D = Data Area 


Figure 25. 


The master index can contain the 
following types of entries: 


Normal Entry 

Dummy Entry - Chained 
Dummy Entry - End 
Inactive Entry. 


The master index must immediately precede 
the cylinder index on a volume, and it may 
be located on one or more successive 
cylinders. Whenever it is continued from 
one cylinder to another, the last index 
entry on the first cylinder contains a 
linkage field that points to the first 
track of the next cylinder. This type of 
entry is a dummy chained entry. A master 
index may not be continued from one volume 
to another. It must be completely 
contained within one volume. The last 
track assigned to the master index area 
must be contigucus to the first track of 
the cylinder index area. A ‘job control 
EXTENT card must be used to specify the 
correct location. Like the cylinder index, 
it can be located on the same volume with 
the data records or on a different volume 
that will be online whenever the records 
are processed. 


The entries in this index point to each 
track of the cylinder index. Each entry 
contains the highest record key on the 
cylinder index track and the address of 
that track. For example, if a master index 
is located on track x and a cylinder index 
is located cn tracks x+1 through x+20, the 
master index might contain the entries 
shown in Figure 25. , 


The last entry on the master index is a 
dummy end entry. The key of the dummy end 
entry is the same length as the user's key 
length and is filled with ¥'F's. The data 
field is of the same length as the normal 
entries, but is a null field. 


Inactive master index entries have the 
same format as the track index inactive 
entries. They are written to provide for 
future expansion of the file and for OS/VS 
compatibility. An inactive entry is 
written for each track of the cylinder 


D K 


Schematic Example of a Master Index 


index containing inactive entries. See- 
Figure 20 for the format of the master 
index data area entries. 


ISAM performs the following four basic 
functions as specified in the DTFIS entry, 
LTOROUT: 


e LOAD. To build a logical file on DASD 
or to extend a file beyond the highest 
record presently in an organized file. 


e ADD. To insert new records into an 
organized file. 


e RETRVE. To retrieve records from a file 
for either random or sequential 
processing and/or updating. 


e ADDRTR. Both to insert new records into 
a file (ADD) and to retrieve records for 
processing and/or updating (RTR). 


LOAD OR EXTEND A DASD FILE 


Data records to be loaded onto a DASD file 
must be sorted into sequence by record key, 
before being presented to the ISAM load 
routines. 


The data records are written by ISAM 
onto a DASD track in an area of the file 
(called the prime data area) specified by 
the user. The position of each logical 
record is a function of the record key used 
in the presort operation. That is, each 
record is written one after the other onto 
the prime data area of the logical file. 
The user must specify one extent for the 
prime data area on one pack. If a file is 
to be loaded onto more than one pack, the 
prime data area must continue from the last 
track of one pack to the first track of 
another pack. Extents must be adjacent. 
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The starting and ending limits of the prime 
data area are specified by the user in job 

control EXTENT cards. In addition, all | 

packs to be used for a multipack file must 

be online throughout the load operation. 


ADD RECCRDS TC A FILE 


After a logical file has been organized on 
DASD, it may subsequently become necessary 
to add records to the file. These records 
may contain* keys that are above the highest 
key presently in the file and, thus, 
constitute an extension of the file. They 
may also contain keys that fall between or 
below keys already in the file and 
therefore require insertion in the proper 
sequence in the organized file. 


If all records to be added have keys 
that are higher than the highest key in the 
organized file, the upper limit of the 
prime data area of the file can be adjusted 
(if necessary) by the specification in a 
job control EXTENT card, and the new 
records can be added by presorting them and 
loading them into the file. No overflow 
area is required. The file is merely 
extended further on the volume. However, 
new records can be batched with the normal 
additions and added to the end of the file. 


If records must be inserted among those 
already organized, an overflow area is 
required. ISAM uses the overflow area to 
permit the insertion of records without 
necessitating a complete reorganization of 
the established file. The fast random and 
sequential retrieval of records is 
maintained by inserting references to the 
overflow chains in the track indexes, and 
by using a chaining technique in the 
overflow records. For chaining, a | 
sequence-link field is prefixed to the 
user's data record in the overflow area. 
The sequence-link field enables ISAM to 
follow a chain of sequential records ina 
search for a particular record. This 
10-byte sequence-link field has two types 
of entries: an overflow chained entry and 
an overflow end entry (see Figure 20). 


The overflow chained entry contains the 
address of the record in the overflow area 
that has the next higher key. The overflow 
end entry indicates the end of the chain. 
All records in the overflcw area are 
unblocked, regardless of the specification 
(in DTFIS RECFOFM) for the data records in 
the logical file. 


To add a record by insertion, ISAM 
searches the established indexes first to 
determine on which track the record must be 
inserted. After the proper track index 
entries are located, the point of insertion 
can then be determined. The keys of the 
last records on the tracks in the 
originally organized file determine the 


82 LIOCS Volume 3 DAM and ISAM 


Licensed Program - Property of IBM 


track where an inserted record belongs. A 
record is always inserted on the track 
where: 


1. The last key is higher than the 
insertion, and 


2. The last key of the preceding track is 
lower than the insertion. 


After the proper track is determined, ISAM 
searches the individual records on the 
track or overflow area (if necessary) to 
find where the record belongs in key order. 
This results in either of two conditions: 


1. The record falls between two records 
presently on the track. ISAM adds the 
record by inserting it in the proper 
sequence and shifting each succeeding 
record one record location higher on 
the track, until the end record is 
forced off the track. ISAM transfers 
the end record to the overflow area, 
and prefixes the record (data area) 
with a sequence-link field. The first 
time a record is inserted on a track, 
the sequence-link of the overflow 
record indicates that this is the 
highest record associated with the 

crack. Thereafter, the sequence-~link 
field of each overflow records points 
to the next higher record for that 
track. ISAM also updates the track 
index to reflect this change. The 
normal entry for the track has the key 
field changed to indicate the new last 
record located on the track. The 
overflow entry for the track has the 
track address (in the data area) 
changed to point to the address of the 
overflow record. 


2. The record falls between the last 
record presently on the track and the 
last record originally on the track. 
Thus, it belongs in the overflow area. 
ISAM writes the record in the overflow 
area following the last record 
previously written. ISAM searches 
through the chain of records associated 
with the corresponding track for this 
record and identifies the sequential 
position the record should take. Then 
the sequence-link fields of the new 
record, and of the record preceding it 
by sequential key, are adjusted to 
point to the proper records. 


RANDOM RECORD RETRIEVAL 


Random retrieval from an indexed-sequential 
file is performed by the READ macro 
instruction. In response to the READ 
instruction, ISAM searches the indexes to 
locate the track containing the desired 
record and then searches the track for the 
record. The block containing the record is 
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read and the record is made available for 
processing. For both blocked and unblocked 
files, only the data portion of the record 
is read; the key field is not read. 


After record processing has been 
completed, a WRITE macro instruction can be 
issued to write the record back in its 
Original location. To allow overlap of 
input and output operations with 
processing, REAL and WRITE do not wait for 
completion of the operations, but return 
control to the problem program. The WAITF 
macro instructicn is used at the point in 
the program where processing must be held’ 
up until the I/C operation is complete. 


SEQUENTIAL RECORD RETRIEVAL 


Sequential retrieval from an 
indexed-sequential file begins at a 
location or record specified in a SETL 
macro instruction. Input blocks are read 
and each reccrd is presented in sequence in 
response to the GET macro instruction. 

When necessary, ISAM reads those records 
from the overflcw area that were displaced 
from the prime data area by added records. 
The track index cverflow entry is used to 
indicate when this is necessary. The key 
field of unblocked records is read along 
with the data field. With blocked records, 
however, the key of the block (repeated in 
the last record of the block) is not read. 


After record processing has been 
completed, a PUT can be issued to write the 
record back into its original location. If 
the file is blcecked, the entire block is 
written back after either all records in 
the block have keen processed and a GET is 
issued for the first record in the next 
block or an ESETL macro instruction is 
issued. The PUT macro instruction does not 
have to be issued for records that have not 
been changed; a series of GFTs can be | 
issued with no intervening PUT. The entire 
block is written back into the file if, and 
only if, a PUT is issued for any record in 
the block. 


Once a SETL macro instruction has been 
issued, GET and FUT are the only I/0 
operations that can be performed before 
issuing an ESETL macro instruction. For 
example, if a WRITE is to be issued to add 
a record to a file that is being processed 
sequentially, it must be preceded by an 
ESETL. After adding the new record, the 
SETL macro instruction can be reissued, 
specifying the last record processed as the 
new starting point. 


ROTATIONAL POSITION SENSING (RPS) SUPPORT 


RPS is supported in ISAM for all channel 
programs built by ISMOD. This includes 
channel programs for all index levels and 
for both prime and overflow data. The 
Support is provided for LOAD, ADD, and both 
SEQUENTIAL and RANDOM RETRIEVE modes. 


RPS support is provided in LIOCS' by 
dynamically extending the user DTFIS into 
the virtual area within the user's 
partition, and by linking the user DTFIS to 
an RPS version of the logic module in the 
SVA (Shared Virtual Area). The user must 
provide sufficient dynamically allocatable 
space in his partition for the RPS DTFIS 
extensions, and sufficient space in the SVA 
to contain the required RPS versions of the 
logic modules. 


The RPS versions of the logic modules in 
the SVA are reenterable and therefore 
sharable between partitions. If the 
linkage to the original module is already 
coded read-only, the user-supplied save 
area is not used. 


The RPS versions of the logic modules in 
the SVA are supersets of the functions 
needed to process the DIFIS being opened. 
Supersetting of RPS and non-RPS logic 
modules is not supported. 


DTFISs in real partitions or partitions 
with insufficient allocatable virtual 
storage are opened without RPS support. If 
either the device or the system does not 
support RPS, the DTFIS is opened without 
RPS support. 


The CCB CCW address and the module 
linkage fields in each DTFIS are modified 
to point to the DTFIS extension and the RPS 
version of the logic module in the SVA. 
Each DTFIS has three RPS indicators set on 
by OPEN. The first (byte 65, bit 4) 
indicates that the device containing the 
prime data being accessed is an RPS device; 
the second (byte 65, bit 5) indicates that 
the DTFIS has been extended into partition 
virtual space; the third (byte 65, bit 7) 
indicates that the device containing the 
index being accessed is an RPS device. 


The RPS DTFIS extension(see Figure 26) 
contains CCW build and work areas necessary 
to construct RPS channel programs. In 
addition, the extension contains: 


e <A save area to force reentrancy on all 


imperative macro calls to the RPS 
versions of the logic modules. 
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e Information necessary to reestablish the 
Original DTFIS at close time. 


e The RPS error exit routine. 


The RPS error exit routine reestablishes 
addressability to the RPS DIFIS extension 
and passes control to the ISAM module. 
This routine gains control when the user 
returns to the ISAM module via the error 
exit path. 


The original DTFIS is used for all 
fields except the channel program building 
areas. 








te ee, Ae re Ree ge Ve ha ae re aaa casei niaes | 
|Displace-| | | | 
{ment | Bytes| Contents | 
|- SS == —~—————— | 
| 0 | 144 {CCW build area | 
| 144 [ 5 {RPS sector arguments | 
{ 149 {| 15 {RPS work area | | 
{ 164 | 4 |Pointer to RPS error exit] 
| | |routine | 
| 168 | 4 |Saved ISMOD register 14 | 
i | | Jat error exit time . | 
{ 172 | 4 |Saved user register 13 { 
| 176 [ 4 |Saved original CCW | 
| : | Jaddress | 
| 180 | 4 |Saved original module | 
| | jaddress | 
| 184 { 72 |User register save area | 
; 256 1 44 |RPS error exit routine | 
{ 300 | 84 |Unused area in DTFIS | 
| { jextension | 
i a a a is se ss Se eS ee a a el 
Figure 26. 


DTFIS Extension for RPS 


Position Sensing (RPS) feature, refer to 
the appropriate hardware manual for the 
device type hkeirg used. 
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DIFIS MACRO 


Before an indexed sequential file can be 
processed, it must be defined by the DTFIS 
declarative macro. Some of the fields 
within the DTFIS table generated from this 
macro instruction are not determined or 
filled in until the file is opened during 
execution of the program. Many of the 
fields in the table are retained with the 
file in the DASD format-2 label. 


In addition to the parameters that 
describe the file to be processed, the 
DTFIS macro instruction includes certain 
parameters identical to those in the ISMOD 
macro instruction. 


The following five DTF tables are 
generated according to function. They are: 


DTFIS LOAD (see Figure 27) 

DTFIS ADD (see Figure 28) 

DTFIS RETRVE, RANDOM (see Figure 31) 
DTFIS RETRVE, SEQNTL (see Figure 32) 
DTFIS ADDRTR (see Figure 33) 


In addition, the DTF tables for ADD, 
RETRVE, and ADDRTR are divided into the 
three parts that appear in the assembly 
listing. The first part of the DTF table 
is common to the ADD, RETRVE and ADDRTR 
functions. The rest of the table is 
variable and is generated according to the 
options specified in the DTFIS detail 
entries. 


For a description of the DTFIS header 
entry and detail entries refer to 
VSE/Advanced Functions Macro Reference. 


Note; The DTFIS may be altered when used by 
any of the compilers. For further 
informaticn, refer to the Programmer's 


Guide for the appropriate compiler. 
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(ea es eee ee oe ee ee oe ee eee De gt Fe 8" EP eg ee pk eee ts ee —q 
{DTF Assembly | Module ] ; | 
| Label {CSECT Label | Bytes {Bits | Function | 
=< SS ————— | 
|&6Filename | IJHKCCB | 0-15 | {Command Control Block (CCB). | 
{ { | (0-F) [ | | 
| I | | | i 
| | {| 16 (10) {0-1 {Not used. | 
| | | |} 2 {1 = COBOL open ignore option. | 
{ | { | 3 |Not used. | 
| | ] | 4 {1 = DIF table address constants relocated by| 
| | [ | | OPENR. | 
| | | | 5 |Not used. | 
| | | | 6 11 = Data set security. | 
| | | 1} 7 {1 = Wrong block size error during file | 
| | 3 | extension. 
| | | | | | | 
| | | 17-19 ; jAddress of logic module. { 
( | f (71-13) | | [ 
i | | | [ | 
| | | 20 (14) | |File type for OPEN/CLOSE (xX'24* = LOAD). | 
| | | | | | | 
| | IJHKOPCO {| 271 (15) |[- [Option byte. | 
| | [ | 0 {Not used. | 
| | | {| 1 |Not used. : | 
i | { { 2 {1 = Cylinder overflow option. { 
| | | } 3 | Not used. | 
i | { 1 4 {1 = Blocked records (used by previous | 
| | { { | versions). { 
| | | } 5  |1= Verify. | 
| | | |} 6 J|Not used. | 
| | { 1 7 [1 = Two I/O areas present. ] 
{ | f | [ | 
| | | 22-28 | |File name. | 
[ | | (16-1C) | l | 
[ { | l { [ 
{ | IJHKPDDV | 29 (1D) | |Prime data device type indicator. | 
| | | | tX'OO" = 2311 | 
| | [ | 1x'O1" = 2314/2319 { 
| | | | rx'o4' = 3330 | | 
i | | | {X¥'O8* = 3340 general | 
| | | f 1xX'09* = 3340 35MB | 
| | | | 1X'OA® = 3340 7OMB. | 
{ | | | i | 
{&6Filename.C | IJHKCCOD {| 30 (1E) { |Status byte. . | 
| { { {| 0 {1 = Uncorrectable DASD error (except WLR [ 
| | | | | error). | 
{ | | | 1 {1 = WLR error. | 
{ | ( |} 2 {1 = Prime data area full. { 
{ | { 1 3 {1 = Cylinder index area not large enough to | 
{ { | | | reference prime data area. Set on only | 
| | | | i if error detected at SETFL time. i 
| | | 1 4 {1 = Master index not. large enough to | 
| { | | | reference prime data area. Set on only | 
{ | | | | if error detected at SETFL time. | 
| { | {| 5 11 = Duplicate record. | 
{ | | 1} 6 j}1 = Sequence error. | 
| | | bo 11 = No EOF record written in prime data | 
| | | ; [ area. | 
Fs co ems mes cme ce epee em ce pec cena anew <emcso eminence cia nc ct ip ais rs elms cella cin Se ns tna dh i iain mp nec aes or sai mi an aes nen | 

Figure 27. DIFIS LOAD Table (Part 1 of 5) 
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ee yO ee rae nr ine ee eee ge Pa TE eg ee eT ee pT ee ee eT ee ee ee Le Se eS ee Pet = So I pe ee 
|DTF Assembly | Module | | | | 
| Label {DSECT Label |{ Bytes {Bits | Function | 
|-----— wa nn Geen Genmene: eama celine rire — —— | 
| {| IJHKHNDV | 31 (1F) | |High level index device type indicator. { 
| I ] i 1x'OO" = 2311 | 
| | { | tx'od® = 2314/2319 | 
| | { | rXx'o4t = 3330 { 
| | | | }x'O08*" = 3340 general | 
| i { | 1x'09" = 3340 35MB i 
| | 1X'OA' = 3340 70MB. 
{ | | ee | i 
| | | 32 (20) { {Relative position of the DSK¥YTN (logical | 
f | | | junit, cell number) table (in words). This | 
; | { ] |value is the length of the DTF table divided| 
; | a | [by 4. | 
| | | [ | | 
| | | 33-34 ] {First prime data track in cylinder (HH). | 
i | } (21-22) | [ | 
{ | ( | | 
| | {| 35 (23) | |First prime data record in cylinder (R). | 
| | | | | 
| | | 36-37 ( jLast prime data track in cylinder (HH). | 
| | | (24-25) | | | 
; { l | | I 
{ | {| 38 (26) | {High record on master index/cylinder index | 
| | | | [track (R). | 
| | ; | | | 
{ | IJHKNRPD } 39 (27) | {High record on prime data track (R). | 
{ | 1 40 (28) | {High record on overflow track (R). | 
| | | | | | 
| | IJHKNRSH 1 41 (29) | |High record on last track index track in | 
4 | | H jcylinder (whether shared or unshared). | 
| | | | | 
| | IJHKNRTI } 42 (2A) | {High record on track index track other than | 
{ | | | Jlast in cylinder. If only one track index | 
| | { | jtrack in cylinder, it is equal to Byte 41. | 
[ | | [ l i 
| | IJHKFLAG | 43 (2B) | j|Condition Code. | 
| | . i | 0 {1 = WLR checks requested (for extension). { 
| | | | 1 |1 = First record in file. | 
| | | {| 2 {1 = Prime data extent full. | 
i | | | 3 |!1 = Master index/cylinder index extent too | 
| | | | i snall. | 
{ | | i 4 }1 = Prime data upper limit has been ; 
| | | | i increased (for extension). | 
{ | { 15 {1 = Extension. { 
| | | }6-7 |Not used. | 
| | ( | ; | 
| | | 44-50 { {Prime data lower limit (MBBCCHH). | 
| i | (2C-32) | [ [ 
| | |}. 51-57 | {Cylinder index lower limit (MBBCCHH). | 
| | | (33-39) | | : | 
| | | 58-64 i |Master index lower limit (MBBCCHH). | 
| | | (3A-40) | { | 
| | | \ | | 
| | 1 65 (41) [| - ‘| Switches. | 
| | | {}O-3 |Not used. | 
| | | 1 4 {1 = RPS type device (data). | 
| | | | 5 {1 = RPS type DTF.. | 
{ | | | 6 |1 = Master index. | 
i | ; | 7 }1 = RPS type device (index). | 
it cence cen kis ces cin scons sess aps Stic aman mm i min iS su cv aba un etal ss nent <i su rs tgs ag NT RR A Re ee ee ee ee | 
Figure 27. DIFIS LOAD Table (Part 2 of 5) 
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oo ee ee 


{DTF Assembly | 


| Label 


{6Filename.H 








{DSECT Label | 


Module 
IJHKLPDR 


IJHKLGLN 


IJHKBKLN 


IJHKNRCD 


CED AL ED DS CD ES ED a > GEES OES ED CME 








Seale eee sitter ec ee 
| | | 
Bytes [Bits | Function 
am anne beenomenere Sone Ne EP en eee Neha Ce ne Ae aN 
| 66-73 ] jAddress of last prime data record 
| (42-49) | | (MBBCCHHR). 
| l 
| 74-75 | {Logical record length. 
[ (4a-4B) | | 
| 76-77 | {Key length. 
(4C-4D) : 
| 78-79 | {Block length (logical record length times 
| (4E-4F) | {number of records). 
| 80-81 | }Overflow record length (logical record 
{ (50-51) | flength +10). 
| [ 
| 82-83 | {Blocking factor (number of logical records). 
J (52-53) | | | 
| 84-85 | jIndex entry length (key length +10). 
f (54-55) | | 
| 86-87 | |Prime data record length (key length + 
| (56-57) | |physical record length). 
| 88-89 | {Overflow record length with key (key length 
1 (58-59) | {+ logical record length + 10). 
| 90-91 | | Prime data record format length (key length 
{| (5A-5B) | {+ physical record length + 8). 
} 92-93 | |Overflow record format length (key length + 
{| (5C-5D) | J logical record length + 18). 
| 94-95 { {Key location (in blocked records). 
[| (SE-5F) | | 





{This is the end of the common DTF area. 





The format of the remainder of the table 


jis variable and is generated according to the parameters specified in the DTFIS 
{macro instruction. 


{ 
{&Filename.S 
( 


| 
{6Filename.P 


Figure 27. 


IJHKSBKT 


IJHKLGCT 


IJHKLTIIR 


IJ HKLCIR 


IJHKLMIR 


A PD AD SS AS OD LS OTD EES TS LAST AS A AES SIE RE SY 


| 

| 96-103 
| (60-67) 
| 
1104-105 
| (68-69) 
| 106-107 
| (6A-6B) 


(6C-6F) 


112 
(70) 


113-117 
(71-75) 


118-122 
(76-78) 


| 123-127 
| (7B-7F) 


DIFIS LOAD Table (Part 3 


“SIA ' & 1 
3) 





| 
|Seek/Search address area (MBBCCHHR). 


J|Logical record counter (for blocking). 


{Number of bytes for high level index. 


Status indicators. 

Not used. 

1= File closed. 

ot used. 

= Last prime data track full. 


N 
1= 
1 = Last block full. 


|Last track index normal entry address 
| (CCHHR) . 
| 


JLast cylinder index entry address (CCHHR). 


| 
{Last master index entry address (CCHHR). 
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| 
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| Label 





|6Filename.B 


&Filename.M 


! 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Figure 27. 


| DIF Assembly {| Module 


|DSECT Label | Bytes 


ef ee 


IJHKRDWR 


IJHKADCN 


IJHKBFOS 


IJHKMIXT 


IJHKPDUL 


IJHKLTM1 


IJHKKLM1 


IJHKLIM1 


IJHKTIDR 


IJHKBFDR 





| 

| 

| 
1128-135 
| (80-87) 
1136-143 
| (88-8F) 
1144-151 
1 (90-97) 


| 
1152-159 
| (98-9F) 
1160-167 
| (AO-A7) 
1168-175 
| (A8-AF) 
| 176-183 
| (BO-B7) 


| 

1184-187 
| (B8-BB) 
1188-191 
| (BC-BF) 
1192-195 
| (CO-C3) 


196-199 
(C4-C7) 


200 
(C8) 


1201-204 
| (C9-CC) 
1205-208 
| (CD-DO) 


[ 
1209-215 
| (D1-D7) 
| 216-222 
| (D8-DE) 
| 

1223 

| (DF) 


{ 
1224-225 
| (E0-E1) 
| 

| 226-227 
| (E2-E3) 


| 
| 228-229 
| (E4-E5) 


| 
| 230-231 


| (E6-E7) 


DIFIS LOAD Table (Part 4 
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I 
{Bits | 
a a 


4———-__—_— : 
|CCW build area. 
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| 
Function 














See description of SETFL 


|macro, phase 1 - $$BSETFL. 


[ 

|Seek CCW. 

[ 

|Search ID equal CCW. 


| 

|}TIC CCW. 

[ 

| 

{Read/Write CCW. 


| 
|Search ID equal CCW. 


| 
{TIC CCW. 


| 
{Verify CCW. 


Address of IOAREAL. 


|Address of data in WORKL. (FIXBLK = address 
Jof WORKL; FIXUNB = address of WORKL + key). 

jAddress of key in WORKL. (FIXBLK = address 
}of WORKL + KEYLOC - 13; FIXUNB = address of 

| WORKL.) 

i 

{Block position indicator (address of logical 
{record in IOAREAL). 

l 

{Master index, extension indicator. 

| Not used. 

{1 = Extending file, 0 = 
| Not used. 

11 = Master index being used, 0 = No master 
jindex being used. 

{Cylinder index upper limit (CCHH). 


Creating file. 


{Master index upper limit 


| 
| 
| Prime data 


{j extension) 
|Prime data 
{ (MBBCCHH). 


| 
jLast prime 


(CCHH). 


upper limit 
(MBBCCHBH). 
new upper limit 


(Old upper limit, if 


(for extension) 
data track in cylinder - 1. 

Key length - 1. 

Logical record length - 1. 


Address of track index dummy record (HR). 


|Address of record before first prime data 
[record in cylinder (HR). 
ii is has nis edn ni sn ic cbt it oan ai asennad 
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Ga a Ba a a rt a a eeontee 
{DTF Assembly | Module | | { | 

| Label |DSECT Label | Bytes {Bits | Function 

| ----_---—__-__-_ _-___ +} -—___-___-___- _— | OH OOO nk ke—e—e=—=—=—=—=—_—e=e=e=eeeeeeee_ee 
| | IJHKNRCM 1232 | {Number of records on master index/cylinder 
| | | (E8) | jindex track - 1. 

[ | | | 

{ | IJHKCMCT {233-236 | |Master index/cylinder index DASD address 
| | | (E9-EC) | |control field (CCHH). 

] | | | {| 2311 = x'00C70009'8 

| | | I | 2314/2319 = x'00C70013! 

| | ; | { 3330 = X¥'O1FFO0012' 

| | | | |} 3340 = X¥'O1FFOOOC! 

i | | | | 

{ | IJHKPDCT {237-239 | {Prime data address control field (CCH). 
l. | | (ED-EF) | {| 2311 = xX'00C700! 

| { | | | 2314/2319 = x¥'00C700! 

i | | | {| 3330 = X'0O1FFOO! 

| | | | 1! 3340 = X'O1FFOO! 

{ ; | i | 

| | IJHKPDBG {240-242 | |Prime data beginning of volume (CCH). 

| | | (FO-F2) | { 2311 = x'000100! 

{ | ] | J} 2314/2319 = x'000100! 

] | | | {| 3330 = x¥'000100' 

| | | i | 3340 = x'000100! 

| | | | | 

{ | IJHKPDEN {243-245 | |Prime data end of volume (CCH). 

{ | | (F3-F5) | } 2311 = x'00C700! 

| { | | } 2314/2319 = x'00C700! 

| ( | | | 3330 = ¥'0193005 

| | | | } 3340 = X¥'015B00' (35MB) 

] | | | | X¥'02B700" (70MB) 

| { | { I 

| | 1246-247 | |Used for alignment. 

! | lo 

{}6Filename.E | IJHKXTBL {248-2512 | |First entry in DSKXTN table (logical unit, 
| | | (F8-FB) | {cell number). 

{ | | 256-2592 | |X'FFFFFFFF' = End of DSKXTN table. 

{ | | (100-103) | | 

{ | {260-263 | {Address of IOAREA2. 

( | | (104-107) | | 

| | {264-267 | {Address used to relocate IOAREA2. 

[ | -{ (108-108) | | 























J}1Each entry in the DSK¥YTN table is four bytes long. The minimum number of entries is 


{| two. There is one entry per extent. 


{ 
{|2Location of the end-of-table indicator depends on length of DSKYTN table. 


vce a ets oes eerie 





Numbers in parentheses are displacements in hexadecimal notation. 


Figure 27. DIFIS LOAD Table (Part 5 of 5) 
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{DTF Assembly { Module ( | | 

| Label |DSECT Label | Bytes {Bits | Function 
| ~————— 4. fp fp 
&Filename IJHCCCB 0-15 | {CCB. 

(0-F) 





| 





16 (10) |0-1 used. 

COBOL open ignore option. 

Track hold specified. 

DTF table address constants relocated by 

OPENR. 

used. 

= Data set security. 

= Wrong block size error during addition 
to file. 


Logic module address. 


EWN I 
=d md ad 
oO Oo 
ct tt tt oct 


~jJ OW Ul 
wa = 


17-19 
(11-13) 


20 (14) File type for OPEN/CLOSE (X'25' = ADD). 


IJHCOPT 21 (15) ption byte. 

ot used. 

Prime data in core. 
Cylinder overflow. 
Cylinder index in core. 
Blocked records. 
Verify. 

used. 


WF wn—o 


0 
N 
1 
1 
1 
1 
1 
N 


ty ln tt a 


6-7 


O 


| 

| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| 
| | 
| 
| | 
| | 
| | 
| | 
| | 
| | 
| I 
| | 
| 
| | 
| | 
| 
| | 
| | 
| 22-28 i 
| (16-1C) | 
| | 
| | 
| 
| | 
| 
| | 
| 
i | 
| | 
| | 
I | 
| 
| | 
| 
| 
| | 
| | 
| | 
[ [ 
| 
| | 
| | 
| | 
| | 
| | 
[ 


file name. 


oO 
ty 
hy 


IJHCPDDV 29 (ID) {Prime data device type indicator. 
;x*'OO0! 2311 

1x'o1* 2314/2319 

yx'oar 3330 

Ix'os' 3340 general 

px'oogr 3340 35MB 


{Xx"'Oa? 3340 70MB. 


&Filename.c IJHCSTBY 30 (1E) tatus byte. 

Uncorrectable DASD error (except WLR). 
WLR error. 

EOF (sequential). 

No record found. 

Tllegal ID specified. 

Duplicate record sensed. 

Overflow area full. 


Record retrieved from overflow area. 


nua t t WwW @ 


Ss 
1 
1 
1 
1 
1 
1 
1 
1 


SAU PWN ot © 


ITJHCHNDV 31 (1F) {Highest level index device type. 
1X'oo! 2311 

1x*o1* 2314/2319 

px'our 3330 

}x'0O8* 3340 general 

px'ogr 3340 35MB 


1X*Oa' 3340 7O0MB. 


—_ eum a= amp cue = aw aww OEP cm ae cm CORR oe ee cee om aep me ee eee ee em ee ews em com ee com cee cmp ce am 6mm cum ame ee eee een =e awe awe cen ase ame CR eee ame com <P aa oo oe 
om cme ED eee eee ee ewe ce 263 ae cam ae 4888 eam cum 28 eee asses om ewe em ame cP eee awh eee 287 ame ame aw 8S ass cen GP ase eam samp ewre <-oRRe awn SS ee ee SP eee ae EP ess ae eee eo ee eee SP eee ee oD 


LH AERA EAT TAY OE EL EL EE ILE LITLE TEL NRL TRY LAI, OT CT EDEL TIE AED LTR 
Numbers in parentheses are displacements in hexadecimal notation. 





L 




















Figure 28. DIFIS ADD Table (Part 1 of 6) 
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Pane NT 
DFT Assembler| Module | 

| Label |CSECT Label | Bytes {Bits 
|-—— f+ | 

| { IJHCPNT {| 32 (20) | 

| I | | 

| { | [ 

; { [ [ 

| | | | 
| | | 33-35 | 

i | | (21-23) | 

| | | 36-37 | 

{ ( | (24-25) | 

i I | 38 (26) | 

; { | I 

l | | { 

| | IJHCPDH | 39 (27) | 

| | [ { 

| { | 40 (28) 1 | 
| | | | | 

{ | IJHCSTH | | 41 (29) | 

| | | { 

| {| IJHCTIH |} 42 (2A) | 

[ | [ | 

{ | | | 

{ {| IJHCRTR | 43 (2B) | 

{ | | | 0 
| | i | 1 
{ { | | 2 
| | | | 3 
| | | | 4 
{ | | 1 5 
i | | | 6 
{ | i {7 
| | | i 

| | | 44-50 | 

| | | (2C-32) | 

{ { | [ 

| {| IJHCCIS | 51-57 | 

l \ | | (33-39) | 

I [ | l 

| | IJHCMIS | 58-64 | 

l [ | (34-40) [. 

| | | | 

| | IJHCILN | 65 (41) | 

| | | ; 0 
{ ( | { 1 
| | | [2-3 
i i [ | 4 
| | ; | 5 
{ | [ | 6 
{ [ ( | 7 
[ 7 | I [ | [ 
{&Filename.H | IJHCCLPA {| 66-73 | 

| { | (42-49) | 

i | | l 

| | IJHCRESZ {| 74-75 | 

! { | (4A-4B) | 

| | [ [ 

| | IJHCKYSZ | 76-77 | 

| | | (4C-4D) | 

| | , | | 

| | IJHCBLSZ | 78-79 | 

| | | (4E-4F) | 
Oe as sie ns es eis ee oe care cs aac cern cee A mn ARS ENON 
Figure 28. DIFIS ADD Table (Part 2 of 6) 


{Block size (logical record length times 








| | Function 

{Relative position of the DSKXTN (logical 
junit, cell number) table (in words). This 
{value is the length of the DTF table divided 
{by 4. 
| 

| First 
i 
|Last prime data track in cylinder (HH). 
' 

{High record number on master index/ 
[cylinder index track (R). 

I 

| High 
i. 

| High 
[ 

| High 
| a 
|High record number 
Jtrack (R). 

I 

|Retrieval byte. 

}1 = WORKR area specified. 
{1 = WORKS area specified. 
{Overflow switch. 





prime data record in cylinder (HHR). 


record number on prime data track (R). 


record number on overflow track (R). 


record number on shared track (R). 


on track index (TI) 


{1 = Read. 

Not used. 

1 = Output. 

1 = Write key. 

1= PUT macro issued. 


Prime data lower limit (MBBCCHH). 
Cylinder index lower limit (MBBCCHH). 


Master index lower limit (MBBCCHH). 


Switches. 

1 = From WAITF routine. 

1 = WAITF seek check bit. 
Not used. 

1 = RPS type device (data). 
1 = RPS type DTF. 

1 = Master index. 

1 = RPS type device (index). 


Last prime data record address (MBBCCHHR). 
Logical record length (RECSIZE). 


Key length (KEYLEN). 


{number of records). 


L 
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{| Label 
| ---—_-_—_--—_ 


&Filename.S 


&Filename. W 


&Filename. FP 
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Module | { l 
|DSECT Label | Bytes {Bits | _ Function 
Se ooo 
IJHCRL10 {| 80-81 ; |Overflow record length (logical record 
1 (50-51) | Jlength + 10). 
IJHCBFAC | 82-83 { {Blocking factor (number of logical records 
j (52-53) | Jin block (NRECDS)). 
| 84-85 | JIndex entry length (key length + 10). 
| (59-55) | . 
{ : |. | | 
IJHCABCD | 86-87 i | Prime data record length (key length plus 
| (56-57) | |physical record length (block size)). 
| | | 
| 88-89 | |Overflow record length plus key (key length 
1 (58-59) | {+ logical record length + 10). 
| { [ 
IJHCCMAX } 90-91 | {Prime data record format length (key length 
| (5A-5B) | {+ block size + 8). 
| 92-93 | }Overflow record format length (key length + 
{| (5C-5D) | | logical record length + 18). 
[ l | . 
IJHCKYLC } 94-95 | {Key location (KEYLOC) for blocked records. 
| (SE-5SF) | | 
| 96-97 | jConstant = 5. 
| (60-61) | | 
| 98-99 | {Constant = 10. 
| (62-63) | | 
| | | 
IJHCATB2 | 100-101 | [Displacement of Part 2 of the DTFIS table 
| (64-65) | {from start of Part 1. 
| | | , 
IJHCATB3 | 102-103 | {Displacement of Part 3 of the DTFIS table 
| (66-67) | {from start of Part 1. 
[ | | 
IJHCSADR | 104-113 | {Seek/search address area (MBBCCHHRFP). 
{| (68-71) | | 
i | 
IJHCBKCT | 114-123 | jRandom/sequential retrieval work area. 
| (72-78) | | | 
| [ | , 
IJHACPRC } 124-127 | {Prime data record count. 
| (7C-7F) | | 
| | | 
IJHACSTI | 128 { {Status indicators. 
; | (80) }O0-1 {Not used. 
[ | 2 {1 = File Closed. 
| 43-5 |Not used. 
{ | 6 }1 = Last prime data track full. 
] | 7 11 = Block complete. 
| | | 
IJHACLTA 1129-133 | |Last track index normal entry address 
4 (81-85) | | (CCHHR) . 
| | 1 
TJHACLCA 1134-138 | {|Last cylinder index entry address (CCHHR). 
| | (86-8A) | _ 
[ | | - 
IJHACLMA {139-143 | {Last master index entry address (CCHHR). 
| (8B-8F) | ] : 
| | 
IT JHACLOA {144-151 | |Last independent overflow record address 
| (90-97) | | (MBBCCHHR).. 


sees ee 





Figure 28. DIFIS ADD Table (Part 3 of 6) 
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r—-------------- 


{DFT Assembler| 


| Label 


|&éFilename.I 


[ 
{6Filename.A 


{|&6Filename.O 


ee 


AD AS A CNY SE EE I NS SORT AOR EI COLE IES ED AD A URL ST SS ATS STEERS NTE AD COL SSE ED OO SE ED TS A TERE SS RSLS LEE TED PE EAD SED LS ET TE CSE SEES AS ES ALESHA SRY ST 


{DSECT Label | 
—}——--—----t- 





Module 


IJHACCTC 
IJHACOFC 
IJHAC CRC 


IJHACCLL 


IJHACCUP 


IJHAHRAA 


IJHADLNK 


IJHAARAD 


IJHACUSE 


IJHADKEY 


IJHAKLN8 





| 
Bytes 


1152-153 
| (98-99) 


| 
1154-155 
| (QA-9B) 


[ 
1156-157 
| (9C-9D) 
| 
1158-164 
| (QE-A4) 


165-171 
(A5-AB) 


172-175 
(AC-AF) 


176-179 
(BO-B3) 


180-183 


184-187 
(B8-BB) 


188-191 
(BC-BF) 


192-195 
(CO-C3) 


196-199 
(C4-C7) 


200-203 
(C8-CB) 


204-207 
(CC-CF) 


| 208-211 
| (DO-D3) 


| 
{212-215 
| (D4-D7) 


i 
1216-219 
| (D8-DB) 


(B4-B7) 


{Bits 





+--—~~ 


{area used for adding records to a file. 





ee ee eG TS PTT ep eT eT ae EE fe TN ee EL ee Te ee pee ee Oe 


| Function 











{Number of independent overflow tracks. 


Number of full cylinder overflow areas. 


Overflow record count. 


| Independent overflow area lower limit 
| (MBBCCHH). 

| 

{Independent overflow area upper limit 
| (MBBCCHH). 

| ; 
JA (&Filename.D 
{cylinder overflow control record 
{ | 
|A(&Filename.D+8) - Address of work area for 
Jthe current track index normal entry count 
jfield. 

| 

jA(&Filename.D+16) - Address of work area for 
Jcurrent track index overflow entry count 

| field. 

| 

jA(&Filename.Dt+24) - Address of work area for| 
jcurrent prime data record count field. | 
| | 
J}A(&Filename.D+32) - Address of work area for| 
Jcurrent overflow record count field. | 
| | 
J|A(&Filename.D+40) - Address of work area for] 
Jtrack index normal entry data field. i 
( | 
{A (&Filename.D+50) - Address of work area for| 
Jcurrent overflow record linkage field. 


- Address of work area for 
(COCR). 


| 
{A(&IOAREAL) ~- Address of IOAREAL, the I/0 


{ 

JA(GWORKL) - Address of WORKL, work area 
j|containing user data records to be added to 
jthe file. 


l | 
jA(&Filename.K) - Address of the ADD key 


jarea. 


| 
| A (G IOAREAL+8) 
| IOAREAL. 


- Address of key position in 


| 
[A (GIOAREAL+8+&KEYLEN) - Address of data 


{position in IOAREAL. 


ape oe eee ee ee ee ee eee eee eee ee ee eee 


| 


Numbers in parentheses are displacements in hexadecimal notation. 


Figure 28. 
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CP CP AAD CAND GY ED AEA ES CED) ERNST LED 























EE Pee eI ey aS ee OE RN aoe ee Tee See eee eer ere aoe 
{DTF Assembly {| Module | | | | 
| Label |DSECT Label | Bytes {Bits | Function | 
| -——  - -- 4 -- --  -  H +--—--——— SS = —— | 
|\&6Filename.2 | IJHCASAD | 0-3 | {| A(&Filename.S+3) - Address of the seek/ 

| i { (0-3) | |search address areat3. 

| | 1 4 (4) i; O  |1= Seek check indicated. 

| | | | 1-5 |Not used. 

| | | | 6 {1 = Over/under seek has occurred. 

| | | 1 7 11 An error has been found, but a seek 

| | | | | check is indicated. 

| | | 5-7 | jA(&Filename.W) - Address of randon/ 

| | | (5-7) | {sequential retrieval work area. 


ee CE ee A CR DOTTED OES ERY EAE C-ELED AEE CLARE COTOY CEEED GST OREED CNESTREED-CEAND UPD EE EEE UT OEE ME ATED EES ES OEE TEDL CES CREED OEE MENS CRD ARNE CEO ARRDS RAPS OD CIEE ECS GATS ANE TOES ST EET CAND CD ATES CAEN NGL ET PEELS 


|The following information is generated if the cylinder index in core option is 
| specified. 











| | IJHCORST | 12-15 | J{A(GINDAREA) - Starting address of main 
] | { (OC-OF) | jstorage area specified for cylinder index. 
| | | 16-17 | J AL2 (SGINDSIZE) - Number of bytes in main 
] | 1 (10-11) | [storage available for cylinder index. 

| ; | { | 

| | } 18-25 | |Next cylinder index entry to be read 

| { | (12-19) | | (MBBCCHHR). 

| | | | ; 

| | | 26-30 | |Last cylinder index entry (CCHHR). 

i | | (VA-1E) | | 

| i | I | 

{ | IJHCORBT | 31(1F) | |Core index byte. 

| | | {i O |1= First time through B-transient, 

| i | | $$BINDEX. 

] | | | 1 #<|1= End of cylinder index reached. 

| | i { 2 4|1= Index skip option specified. 

| | | | 3 {1 = Suppress in-core option and read 

| | | ; | cylinder index. 

{ | | | 4-7 |Not used. 

{ ( | [ i 

{ | IJHCORKY | 32-35 | {Pointer to key (stored by module). 

| | (1D-23) | | 


SD ES CP ED SY TD SD SEY ESET DS EE ES CES SEY TRE TE AG SND YTD TTS SEY SL ES TTD ES TES IT TS AY SOD NL SS LNAI ES AN TTT SSS AEE RTE RS CEES 


|The following information is generated if the prime data in core add function is 
{specified. This information is aligned on a double word boundary. 























| | IJHPSIZE | 36-37 | | Size of IOAREAL. | 
l { | (24-25) | | | 
i i i i | | 
| | IJHPMAX | 38-39 | |Maximum number of prime data records in nmain| 
| | | (26-27) | | storage. | 
| | | | | | 
| | IJHPDSP1 | 40-43 | JAddress of write CCWs. ; 
{ | | (28-2B) | { | 
| | | I | | 
{ | IJHPDSP2 | 44-47 | {Address of read CCWs. | 
i | | (2C-2F) | [ | 
i { | | | | 
| | IJHPSW | 48(30) | {Switch byte. ' 
| | | | O |1= EOF. 
| i { {| 1-7 |Not used. ; 
l | | i | | 
i i 1 49(31) | |Reserved. { 
{ | i { | | 
| | IJHDCWRK | 50-51 | |Work field for I/0 module. f 
i | (32-33) | | | 
i. 














Numbers in parentheses are displacements in hexadecimal notation. 











Figure 28. DTFIS ADD Table (Part 5 of 6) 
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reo 


|DTF Assembly | 





Module 


| 
Bits | 





i 
i Label |DSECT Label | Bytes | Function | 
|----— ——| — eee eee 
|6Filename.B | | O-7 | {CCW X'O7', &Filename.S+1, X'4O', 6 - Long 
( | | (0-7) | jseek CCW with command chaining. 
I I { I [ 
| | IJHCCCW | 8-127 | {Channel program build area. See Figures 
| | | (8-7F) | }37-58 for a description of the channel 
| i | | {program builder. 
| | | | 
16Filename.D | IJHACCCR {128-135 | {Cylinder overflow control record (COCR). 
{ | 1 (80-87) | | 
{ | | | | | 
| | IJHACTNA {136-143 | jCurrent track index normal entry count field 
| | | (88-8F) | jaddress. 
[ [ | | | 
| | IJHACTOA 1144-151 | }Current track index overflow entry count 
| | | (90-97) | jfield address. 
| { | | 
| | IJHACRID {152-159 | jCurrent prime data record count field 
| | | (98-9F) | jaddress. 
{ ( | | | 
| | IJHACFID {160-167 | {Current overflow record count field address. 
[ i | (AO-A7) { | 
{ | | | | 
| { IJHACTIN {168-177 | jTrack index normal entry data field. 
[ i | (A8-B1) | | 
| | - | | | 
| {| IJHACINK 1178-187 | j|Current overflow record sequence link field. 
( { | (B2-BB) | | 
| | | | i 
| | IJHACTIA }188-197 | |Current track index overflow entry data 
| | | (BC-C5) | | field. 
| [ | | | 
| | IJHAGATE 1198 | {X¥'O01" - Add to EOF. 
| | | (C6) | 1X'Q2*' - Add to independent overflow area. 
| | 1199-201 | |Overflow control bytes (CCH). 
| | | (C7-C9) | | 
i | | | | 
| | IJHAOCOH {202-203 | {High HR on overflow track. See Figure 29. 
| ( | (CA-CB) | : 
| | }204-211 | {Volume upper limit for prime data records 
| | | (CC-D3) | | (MBBCCHHR). See Figure 30. 
{ I | | [ 
| | IJHAICOM {212-217 | {CLC 0 (&KEYLEN, 13) ,0(6) - Unblocked 
| 1(D4-D9) | {CLC O(&KEYLEN, 13) ,GKFYLOC-1(6) - Blocked 
| | | | jUtility CLC for key. 
[ [ | I | 
| | IJHAISKY {218-223 | [MVC O(&KEYLEN,13),0(12) - Unblocked 
| | | (DA-DF) | {MVC O(&KEYLEN, 13) ,GKEYLOC-1(12) - Blocked 
( | | ] jUtility MVC for key. 
[ l | i | 
16Filename.F | | 224-2271 | {First entry in DSKXTN table (logical unit, 
| | | (EO-E3) | j}cell number). 
| | 1232-2352 | {4X' FF" - End of DSKXTN table. 
[ | | (E8-EB) | | 
{ [ | | | 
j&6éFilename.K {| | 236+ | {Key area for ADD only. Number of bytes 
| | {| (EC-end) | ‘|depends on key length, KEYLEN. 











The minimum number of entries is 


|! Each entry in the DSKXYTIN table is four bytes long. 
| two. There is one entry per extent. 
{2 Location of the end-of-table indicator depends on length of DSKXYTN table. 














Cae eens cee ae nee ee ome 


Numbers in parentheses are displacements in hexadecimal notation. 
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ee eer as te gee Pea eS OR Ce Gee are GTC oe eC I ae eNews = ae PL, Pe eee Fen ay a5, ene — 
| 2311 ] 2314/2319 | 
SS a aT | 
| M = Extent sequence number | M = Extent sequence number | 
| | | [ 
IBB = 00 {BB = 00 | 
| | | 
1c=0 | c= 0 { 
| | i 
| c = 199 ; C = 199 | 
| | | 
| H = 0 | H = 0 | 
i | I 
| H = 9 = CYLOFL (number of tracks | H = 19 = CYLOFL (number of tracks | 
] reserved for cylinder overflow) | reserved for cylinder overflow) | 
| I i 
| KR = Number of records that fit | R = Number of records that fit i 
[ on an overflow track | on an overfow track | 
A cece eens Sone mis em ese i ele ems ne sen pile en le a cmt cages a a Sn ia eeneememenees eee eens canes emesemmnenionas. eae aeaciniinell 
Se ee ——y 
{ 3330 | 3340 (35MB) ] 3340 (70OMB) | 
| —------------------ ———-}-----—--- ———_-—_-—---- —-—_—------_—_—_| 
{| M = Extent sequence number | M = Extent sequence number M = Extent sequence number | 
| | | 
{BB = 0 BB = 0 BB = 0 | 
| { 
cc = 403 cc = 347 cc = 695 | 
[ 

H = 0 H = 0. H = 0 { 

| 

| 


H = 18 - CYLOFL (number of 
tracks reserved for 
cylinder cverflow) 


H = 11 - CYLOFL (number of 
tracks reserved for 
cylinder overflow) 

t. 

R = Number of records that 

fit on overflow track 


H = 11 - CYLOFL (number of 
tracks reserved for 
cylinder overflow) 


R = Number of records that 
fit on overflow track 


R = Number of records that 
fit on overflow track 


» 





Figure 29. Overflow Area Upper Limits (MBBCCHHR) 


a ee en ee ee eee ee ee 


| 2311/2314/2319 3330/3340 





| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
L 


M = Extent sequence number 
BB = 00 


199 for 2311/2314/2319 
403 for 3330 

347 for 3340 (35MB) 
695 for 3340 (70MB) 


H = 0 


H = Last prime data track in cylinder 


R = Last record on current track 


! 
| 
| 
| 
| 
| 
| 
| 
be 


Figure 30. End of Volume Limits for Prime Data Area (MBBCC HHR) 
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( (eamaat eaters aires: 


{DTF Assembly | Module | 
| Label |} CSECT Label | Bytes 





|&Filename 0-15 


(0-F) 


IJHCCCB 


16 (10) 


17-19 
(11-13) 


20 (14) 


IJHCOPT 21 (15) 


22-28 
(16-1C) 


&Filename.c IJHCSTBY 30 (1E) 


IJHCHNDV 31 (1F) 


IJHCPNT 


| [ 
| [ 
| | 
| { 
| | 
| I 
| | 
| i 
i | 
| i 
| [ 
| { 
| | 
| { 
| ; 
| i 
{ { 
| i 
i | 
| | 
| [ 
{ [ 
| | 
{ f 
| [ 
| i 
| | 
| | 
| | [ 
| | 
| IJHCPDDV |{ 29 (1D) 
| | 
| | 
| | 
| i 
| [ 
| [ 
; [ 
| | 
| { 
| [ 
| | 
| | 
i | 
| | 
| i 
i | 
| | 
| | 
i [ 
| | 
| | 
{ l 
[ { 
| | 
| | 
i [ 
{| 32 (20) 
| i 
[ i 
| | 


. 
| 
| 
| 
| 
| 


—--$------ +--+ 


GND ANS ARE ARANETA NEY PND NS ED AME DET RAS CRD NET OES ED EE ES TD AED AES ATID KEP (TAL DRTY OTL: TTI A LALIT LL ILLES EELS LLIEDLE EES ALS LY LLY LLG SEY CRA RAND ISN CATED SITET CLA ED CIES Si aa a aac aea | 


{ [ 
[Bits | Function 











| {Command Control Block (CCB). 


used. 

GET issued. 

COBOL open ignore option. 

HOLD option specified. 

DIF table address constants relocated by 
OPENR. 

used. | 
Different blocksize in format-1 label 
than in DTFIS. 


oO 


Noun on Wie 


ad adh ocd od 


=a & 
.e) 
ct 


Address of logic module. 


File type for OPEN/CLOSE (X'26" = RETRVE). 


ion byte. 

used. 

Prime data in core. 

Cylinder overflow option. 
Cylinder index in core option. 
Blocked records. 

Verify. 

used. 


wor oa at 2 3 FO 
O'a 
et tH ot Wot Ww ct et 


1°) 


File name (DTF name). 


| 

| 

i 

| 

| 

| 

{ 

{ 

[ 

I 

l 

| 

| 

| 

l 

i 

{ 

| 

l 

| 

[ 

| 

[ 

| 

l 

| 

[ 

| 

| {Prime data device type. 

| [x'oo? 2311 

i (x'o1' 2344/2319 

| jx'our 3330 

| |x'os? 3340 general 

| ;x'o98 3340 35MB 

| 1X'Oa? 3340 70MB. 

| i 

| |Status byte. | 

| |1 = Uncorrectable DASD error (except WLR 
| error). 

| WLR error. 

| EOF (sequential). 

| No record found. 

| Illegal ID specified. 

| Duplicate record sensed. 

} Overflow area full. 

| Record retrieved from overflow area. 
| 
i 
| 
I 
| 
[ 
i 
( 
I 
| 
i 
[ 
| 


oO 


“AOS WDH 
a ae re ee ee ee 
Hon uw to uu a 


|High level index device type. 
2311 

2314/2319 

3330 

3340 general 

3340 35MB 

3340 70MB. 


{x*'oo* 
}x'o18 
;x'our 
}x'ost 
jx'ogr 
{X'OA* 
I 
{Relative position of the DSKXTN (logical 
Junit, cell number) table (in words). This 
jvalue is the length of the DIF table divided 
[by 4. [ 
5 nme ei hie em ci eis ns cm cc Smee enna ema inf cs cn ome Su lec in al ee Gots eamsoemnintamivicamsiames seeesiaamroll 


Figure 31. DTFIS RETRVE, RANDOM Table (Part 1 of 6) 
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Gea ee a at eg ey aS es See aN SN RT OT REN Ble ke ee aT Meee ee ee ny 
IDFT Assembler| Module | | | | 
i Label | CSECT Label | Bytes {Bits | Function | 
|-——---—-—_-_———_-—-} Ht ——— ere a aE ST a SEER ERO 
| | | 33-35 | {First prime data record in cylinder (HHR). | 
{ | } (21-23) | ( { 
| | | 36-37 | |Last prime data track in cylinder (HH). | 
| | | (24-25) | | 
| | {| 38 (26) | {High record number on master index/cylinder | 
| | i | Jindex track (R). | 
( | ( | i | 
i {| IJHCPDH 1 39 (27) | {High record number on prime data track (R). | 
{ | | | [ | | 
i | | 40 (28) | {High record number on overflow track (R). | 
{ | | [ | | 
{ | IJHCSTH | 41 (29) | {High record number on shared track (R). | 
i | | | i [ 
i | IJHCTIH | 42 (2A) | {High record number on track index track (R).] 
i | | { | 
| | IJHCRIR 1 43 (2B) | |} Retrieval byte. | 
] | { 1} 0 {1 = WORKR specified. | 
| | | | 1 11 = WORKS specified. | 
| | | | 2 |}Overflow switch. | 
| | | } 3 }1 = Read key. ] 
| | | | 4 |Not used. | 
| | | 1 5:  |1 = Output. | 
; | ] | 6 }1 = Write key. | 
| { | | 7 {1 = PUT macro issued. | 
[ | | [ | | 
| | | 44-50 ] {Prime data lower limit (MBBCCHH). | 
[ ; |} (2C-32) | | ; 
{ | [ [ [ | 
| | IJHCCIS {| 51-57 ] [Cylinder index lower limit (MBBCCHH). | 
( | | (33-39) | | | 
l | | [ [ | 
| | IJHCMIS | 58-64 | {Master index lower limit (MBBCCHH). | 
| | {| (3A-40) | | | 
I | i | I | 
| | IJHCILN | 65 (41) | | Switches. | 
| { ] |; 0 {1 = From WAITF routine. ( 
| | | } 1 }1 = Seek check from WAITF. | 
| | | | 2 11 = Data track held. ] 
| { | {| 3 {1 = Index track held. | 
{ | | 1 4 {1 = RPS type device (data). { 
| { | ; 5 }1 = RPS type DTF. | 
| | | | 6 {1 = Master index. { 
| | | | 7 [1 = RPS type device (index). | 
{ [ | l i | 
| | IJHCCLPA | 66-73 | |Last prime data record address (MBBCCHHR). | 
[ { 1 (42-49) | ; [ 
i { | [ [ { 
| | IJHCRESZ | 74-75 | | Logical record length. | 
d | {| (4A-4B) | { | 
| i | | [ | 
{ | IJHCKYSZ | 76-77 | {Key length. | 
{ | | (4C-4D) | I | 
i { I | [ i 
| | IJHCBLSZ | 78-79 | |Block size (logical record length times | 
| | | (4E-4F) | [number of records). | 
( | | | { | | 
| | IJHCRL10 | 80-81 | {Overflow record length (logical record | 
; | f (50-51) | Jlength + 10). | 
Cue ce le Sens ess Sl ac enaanin cence reeenenaenn ene ee nnebcenp eee i heen reste a Ne 











Figure 3231. DIFIS RETRVE, RANDOM Table (Part 2 of 6) 
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ED ELAS SAEETD CPLA LETIED TERRE EL CEL CELE AGED SEE CLT BBM EID LLL GELS GET LE ML ETE ELLIE ELIE CR TENE NEES ELI TELE AE IE IEEE BOOED OLED ELE LTE EAP PLATE EAE LEDOD OSE ELIE) CLLEGE TIS LL LG ELLE EA ENED CEILI ENE DELI ITED CIE DET EE ETE LEE EID ODES ES LIC 


&Filename.S 


|&6Filename.wW 


as a Se a a ee 


Figure 31. 


{DSECT Label | 
— 


Module 


IJHCEFAC 


IJHCABCD 


IJHCCMAX 


IJHCKYLC 


IJHCATB2 


IJHCATB3 


IJHCSADR 


IJHCBCKT 


I 
Bytes 


82-83 
(52-53) 
84-85 

(54-55) 


86-87 
(56-57) 
88-89 

(58-59) 


90-91 
(5A-5B) 


92-93 
(5C- 5D) 


94-95 
(5E-5F) 
96-97 
(60-61) 
98-99 
(62-63) 


100-101 
102-103 
(66-67) 


104-113 


| 
| 
| 
{ 
| 
| 
| 
| 
| 
I 
| 
| 
[ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| (68-71) 
[ 


1114-123 


| (72-78) 


(64-65) 


| 
{Bits | 
———f}-- 


{Blocking factor. 





i 
jIndex entry length 


| 
[ 
{Prime data record length 


{physical record length). 

{Overflow record length with key (key length 
{+ logical record length + 10). 

| 

|Prime data record format length (key length 
{+ physical record length + 8). 

l 

{Overflow record format length (key length + 
{logical record length + 18). 

| : 

{Key location (blocked records). 
i 
|Constant 
i | 
|Constant 
{ 


l 
{Displacement of Part 2 of the DTFIS table 


|from Part 1. 


| 

{Displacement of Part 3 of the DTFIS table 
{from Part 1.. 

[ 

|Seek/search address area (MBBCCHHRFP). 

| 

| 


|Random/sequential retrieval work area. 


(key length + 10). 


(key length + 


5. 


10. 
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{DTF Assembly 


| Label 


| eis eieis neeisiaiecien 
{6Filename. 2 
| 





&Filename.H 


Licensed Program - Property of IBM 





SS SS ee 
{ Module | | | | 
|CSECT Label | Bytes {Bits | Function | 

———+----——- + a nn a ees { 
| IJHCASAD | 0-3 | |} Address of seek/search address area + 3. | 
i | (0-3) | | | 
| | | | | 
| | 4 | 0 11 = Seek check indicated. | 
| | (4) | 1-5 |Not used. | 
| | | 6 |1 = Over/under seek has occurred. | 
| ] | 7 11 = An error has been found, but a seek | 
i ] i 7 check is indicated. { 
i i |. | | 
| | 5-7 | jAddress of random/sequential retrieval work | 
| (5-7) eons | 

| 
| IJHSIOAR | 8-11 | |Address of IOAREAS. | 
| | (8-B) [ i | 
{ [ | [ { 
| IJHCRARA | 12-15 | }Address of IOAREAR. | 
| | (C-F) [ [ | 
| | | i | 
| IJHCRKEY | 16-19 | | Address of KEYARG. | 
| | (10-13) | | | 
[ i | [ i | 
| IJHCRWOR | 20-23 | {Address of WORKR. | 
| | (14-17) | | | 
| | [ | 
| IJHSDB1 {| 24-27 | {|Current sequential I/O area address. | 
; | (18-1B) [ | 
i [ | [ 
| IJHSLIOR | 28-31 | |4-byte NO-OP instruction, or L IOREG,*-4 | 
| | (1C-1F) | {if IOREG was specified. | 
; | | | i 
| IJHSLMIT | 32 { |X'00" = No verify, X'40O" = Verify. | 
{ | (20) i | 
| {| 33 | }x¥'O8*" = Unblocked, X*'00' = Blocked. | 
| | (21) | | 
| 1 34 | {R = First prime data record on shared track. | 
| | (22) [ | : | 
| {| 35-39 | JUpper limit for sequential retrieval ; 
{ (23-27) | | (CCHHR) . 
| | | | | 
| IJHSINIT | 40-41 | {H'O* = Blocked records. | 
| { (28-29) | JH*2* = Overflow record. | 
| | | }H'8* = Unblocked records. | 
| [ | | [ 
| | 42 | ;X'c7* = 2311, 2314, or 23193 | 
| | (2A) | |X'FF* = 3330, 3340. | 
| | 43-47 | {Initial values for sequential retrieval. | 
| | (2B-2F) | [ | 
{ i [ [ [ 
| IJHSCADR | 48-55 | |Current DASD address for sequential | 
| } (30-37) | | (MBBCCHHR). | 
; | | | | 
| IJHSCOVF {| 56-63 | |Current overflow DASD address for sequential | 
| | (38-3F) | | (MBBCCHHR). | 
( | | I | 
| IJHSRCNT | 64-65 [ {Sequential record counter. { 
| | (40-41) | | | 
{ | | | : | 
{ IJHSTICU | 66-67 | jCurrent track index entry for sequential | 
; f (42-43) | | (HR). | 


| ees ED ESSE AS TS EEG AS IY ST ID CTY ES ES EAS OD TE OD CEES ESE SED SELES SECO CRD ASS AD ARES ED SDP OEIY aNA ATTPEED ETI AIRCON npgentaly eet aes eee ma seins eas gn arm te GSD ey SUEY ape pn Cnet SED PP Gu RENTS aD 
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Figure 31. DTFIS RETRVE, RANDOM Table (Part 4 of 6) 


100 


II0cs Volume 3 DAM and ISAM 


Licensed Program - Property of IBM 


et ep rete a ee yy nae ee 

|DTF Assembly | Module | 
| Label {|CSECT Label | 
| -—-—————————- ———} ————————— ———+$ 
(|&Filename.T | | 
{ | { 
| { | 
| | IJHRREGS | 
| | | 
| { | 
{S&Filename.G | IJHRIDSV | 
| | | 
| | { 
| | IJHRADSV | 
t | | 
i | | 
[&Filename.k | IJHROVCN | 
{ | | 


{The following information is generated when the cylinder index in core option is 


|specified. 


{ ES SD IED SEES RAED CE TED CREE HEED SEO OLED CHAEND OED TINGS ERE EEE CHEE CHAD eTmmeNTD 


IJHCORST 


IJHCORKY 


92-95 


68-69 


EELS AED SEES AAI ONE ED AED OD AES EES AES EAN AT EMD SEES OED IPERS RANE ARAIITS A CYT A OST ES ERED AHN SUTRAS enh COSTS SS ee ee 


Bytes 


(44-45) 


70-71 
(46-47) 


72-79 
(48-4F) 


80-83 
(50-53) 


84-87 
(54-57) 





(5C-5F) 


96-97 
(60-61) 


98-105 

(62-69) 
106-110 
(6A-6E) 


(6F) 


112-115 
(70-73) 


116-131 
(74-83) 


| 
{Bits 
eae 


N= © 





4+——— 





| 
[ Function 











|Number of records tagged for deletion. 
| 


{Load IOREG for random retrieval. 
| 


| 
|DASD address save area (MBBCCHHR). 


{Record pointer within I/O area for write 
| operation. 

I 

jNonfirst overflow record count. 














JA(GINDAREA) - Starting address of main 
{storage area specified for cylinder index. 


{ 

{AL2(SINDSIZE) - Number of bytes in main 
|storage available for cylinder index. 

| ‘ 
|Next cylinder index entry to be read 

| (MBBCCHHR). (Initialized by $$BINDEX to 
|cylinder index starting address.) 

[ 

|Last cylinder index entry. 


1 = First time through transient. 
1 = End of index reached. 

1 = Index skip option. 

Not used. 


Pointer to key (stored by the module). 


Reserved. 
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a i ace ee he en a ce Se nae near eee ee enn Oa eee Se einen eee ne eR cen 
{DTF Assembly | Module | | | | 
| Label |CSECT Label | Bytes {Bits | Function | 
| ---—---—-—-——-_ | ----——--——-- ——- +--+ ———— — a | 
{|&6Filename.B | {| 0-7 { 1¥'07',&Filename.S+1,¥%'4O',6 - Long seek CCW | 
| | | (0-7) | {with command chaining. | 
{ [ | I | 

i | IJHCCCW |} 8-63 | JArea to build CCW string. See Figures 61-67| 
| | | (8-3F) | {for a description of the channel program ] 
| | i | jbuilder for random retrieval. i 
{ | | i { ; | 
[S6Filename.F | {| 64-671 | |First entry in DSK¥YTN table (logical unit, | 
{ | | (40-43) | jcell number). | 
| { | 72-752 | {4xX'FF' End of DSKXYTN table. | 
( i } (48-48) | | { 
| 


{2The length of one entry is the four bytes shown here. The minimum number of entries 
{| is 2. There is one entry per extent. 


| y 
|2?The location of the end-of-table indicator depends on length of DSKXTN table. 
ener eect aicecotasea 


Numbers in parentheses are displacements in hexadecimal notation. 
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REL LA» EES EELS IIS: CEI SE LIEED CLO ELS + OEY LEIS LEIA EY LILES TEEPE BOLT SELLE ETE TB EMG EEL ELLE LEED LEELA SLID LLDPE LEILA LG CALAIS SEL) BENELLI ED 








pene 
{DTF Assembly | Module | | - | 

| Label {DSECT Label | Bytes | Bits | Function 
|-_----------- |---| 1 

i&6Filename IJHCCCB 











0-15 Command Control Block (CCB). 


(0-F) 


used. 

GET issued. 

COBOL open ignore option. 
Track hold specified. 

DTF table address constants relocated by 
OPENR. 

EOF on sequential retrieve. 

Data set security. 

Different block size in format-1 label 
than in DTFIS. 

Address of logic module. 


16 
(10) 


IAM £WNaAO 
tou Ww te 


= 3 
wou tl 


* 17-19 
(11-13) 

File type for OPEN/CLOSE (X'26' = RFETRVE). 

(14) 


21 
(15) 


IJHCOPT ption byte. 
ot used. © | 

= Prime data in core. 

= Cylinder overflow option. 

= Cylinder index in core option. 

= Blocked records. 

= Verify. 

= IOAREAS just used, 0 = IOAREA2 just 
used. 

1= Two I/O areas present. 


~~] Am Fwnhn 3 © 


22-28 
(16-1C) 


File name (DTF name). 


29 
(1D) 


IJHCPDDV Prime data device type. 
x *00! 2311 
X'O1' 2314/2319 
x'out 3330 
x'O8! 3340 general 
X'Q9! 3340 35MB 


X "OA! 3340 7JOMB. 


30 
(1E) 


&Filename.c IJHCSTBY Status byte. 

1 = Uncorrectable DASD error (except WLR 
error). 

WLR error. 

EOF (sequential). 

No record found. 

Illegal ID specified. 

Duplicate record sensed. 

Overflow area full. 


Record retrieved from overflow area. 


>) 


“WHOSE WN 
a ee ee ee ee 
Hon nt Uw wm tt 


High level index device type. 
X*00! 2311 
X'O1! 2314/2319 
X'O4! 3330 
X "08! 3340 general 
X'O9!5 3340 35MB 
| xX*oOa' 3340 7OMB. 


a 
SED AD CD ES ES ES SS ES ED AS TS TY SD CSC ES ES SEL SAD ES SPSS AOA GP TS KES OS NS LS SS A TS ED RD ES EAE ARE AAS SIRES ED SSSR a) SEND OL SN EATS EL NEI 


31 


IJHCHNDV | 
(1F) 


—— aap owe ame come ow eee ae ee ee ee oe eee eee eee eee eee eee ee ee ee eee eee ees eee eee ee ees ae ee ee ieee ae eee eee ae ee ee eee eee 
—b eB een OE eee OD EE ee eee OE ou eee OUP eee eee ee ce oe ee eee ee eee eee ee eee eee eee eee eee eee eee eee ee esa eee ee oe ee 
J 


| | 
| | 
| | 
| I 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| I 
| | 
| | 
| | 
| | 
| l 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| 
| | 
| | 
| { 
| i 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| 
1 
| | 
| | 
| | 
| 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| | 


| 
L 





Figure 22. DIFIS RETRVE, SEQNTL Table (Part 1 of 6) 
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ee ee, PE OREN RE TET PEI Se ht LET ERNE AAS RETIRE AREY IES: SES AEN PATE STS EAD 


{DFT Assembler| 


| Label 


| —----------_}----—- 


Ha rere a ike ses cin nem ce ane ce ce amg ees ein ees =D ame 


Figure 32. 


104 


Module 


|DSECT Label | Bytes 


[ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


IJHCPNT 


IJHCPDH 


IJHC STH 
IJ HCTIH 


IJHCRTR 


IJHCCIS 


IJHCMIS 


IJHCILN 


IJHCCLPA 
IJHCRESZ 
IJHCKYSZ 


IJHCBLSZ 


DTFIS RETRVE, 








32 (20) 


33-35 

(21-23) 
36-37 

(24-25) 
38 (26) 
39 (27) 
4O (28) 
41 (29) 
42 (2A) 


43 (2B) 


44-50 
(2C-32) 


51-57 
(33-39) 


58-64 
(3A-40) 


65 (41) 


66-73 
(42-49) 


74-75 
(4A-4B) 


76-77 
(4C-4D) 


78-79 
(4E-4F) 





LICCS Volume 3 [CAM and ISAM 


{Bits 


fSWN-o 


SAW 


SAS I a OS 





Junit 
jvalu 
[by 4 
i 
|Firs 
| 





Function 


Ss Sarat: So ey 
{Relative position of the DSKXTN (logical 


, cell number) 


table (in words). 
e is the length of the DIF table divided 





This 


t prime data record in cylinder (HHR). 


{Last prime data track 


Titel 
|inde 
aigt 
wer 
High 
isis 


record 
x track 


record 
record 
record 


record 


number 


(R) - 
number 
number 
number 


number 


jRetrieval byte. 
WORKR specified. 
WORKS specified. 


[1 = 
(1 = 


O 
1= 
1 


Hou on 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| Key 
| 


verflow switch. 


Read key. 
First record being processed (after 
issuing SETL macro). 


Out put. 


Write key. 
PUT macro issued. 


on 


on 


on 


on 


on 


in cylinder (HH). 


master index/cylinder 


prime data track (Rk). 
overflow track (R). 
Shared track (R). 


track index track (R). 


Prime data lower limit (MBBCCHH). 


Cylinder index lower limit (MBBCCHH). 


Master index lower limit (MBBCCHH). 


From WAITF routine. 
WAITF seek check bit. 


used. 


RPS type device (data). 
RPS type DTF. 
Master index. 
RPS type device (index). 


length. 


Logical record length. 


Last prime data record address (MBBCCHHR). 


|Block size (logical record length times 


j|number of records). 





SEQNTL Table (Part 2 of 6) 
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L 
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(ows poe ee Se ee 


{DFT Assemble 
| Label 


&Filename.S 


&Filename. W 


in ee ees eee SD A CS SS ANS SD ED ED AD 


Figure 32. 


r | 


IJHCEFAC 


IJHCABCD 


IJHCCMAY 


IJHCKYLC 


IJHCATB2 


IJHCATB3 


IJHCSADR 


IJHCBCKT 


DTFIS RETRVE, 


Module 
{CSECT Label | 
—{ 


AED AL LE LO SED APS OED SS SEND 


| 
Bytes 


80-81 
(50-51) 


82-83 
(52-53) 


84-85 
(54-55) 


86-87 
(56-57) 


88-89 
(58-59) 


| 

{ 

| 

| 

| 

{ 

| 

i 

| 

| 

| 

| 

| 

| . 

| 90-91 
| (5A-5B) 
| 

| 92-93 
{ (5C-5D) 
{ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


94-95 
(5E-5F) 


96-97 
(60-61) 


98-99 
(62-63) 


100-101 
(64-65) 


| 102-103 
| (66-67) 


| 
{104-113 
| (68-71) 


| 
(114-123 
| (72-7B) 


{Bits 








| 

| Function 

+-—— 
}Overflow record length (logical record 
jlength + 10). 

| 

|Blocking factor. 














Index entry length (key length + 10). 


|Prime data record length (key length + 
|physical record length). 
{ 


{Overflow record length with key (key length 


{+ logical record length + 10). 
| 


|Prime data record format length (key length 


{+ physical record length + 8). 
| 

{Overflow record format length 
{logical record length + 18). 

| ; 

{Key location (blocked records). 
| 


[ 
{Constant 


(key length 


56 


Constant = 10. 


Displacement of Part 2 of the DTFIS table 
from Part 1. 


Displacement of Part 3 of the DTFIS table 


from Part 1. 


Seek/search address area (MBBCCHHRFP). 


|Random/sequential retrieval work area. 
| 


SEQNTL Table (Part 3 of 6) 


Indexed Sequential Access Method 


| 


+ 


aampD 22RD EB ae OSS ae a ED ee oe GS ees = eee ee SS ee eee ee ee ee ee oe eee ae oe eee ee ee eee ee eee ee ee ewse 268 cee SE ee eee ED 


| 


105 





cc 


JDTF Assembly | 


| Label 


| ------------- $------—---—+— 


[6Filename. 2 


&Filename.H 


[ 


Figure 22. 
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Module 


{CSECT Label | Bytes 


IJHCASAD 


IJHSTCAR 


IJHCRARA 


IJHCRKEY 


IJHCRWOR 


IJHSDB1 


IHJISLIOR © 


IJHSLMIT 


IJHSINIT 


IJHSCADR 


IJHSCOVF 


IJHSRCNT 


IJHSTICU 


DIFIS RETRVE, 





0-3 
(0-3) 


4 (4) 


5-7 
(5-7) 


8-11 
(8~B) 


12-15 
(C-F) 


16-19 
(10-13) 


20-23 
(14-17) 


24-27 
(18-1B) 


28-31 
(1C-1F) 


32 (20) 
33 (21) 


34 (22) 
35-39 
(23-27) 


40-41 
(28-29) 


42 

(2A) 
43-47 
(2B-2F) 


48-55 
(30-37) 


56-63 
(38-3F) 


64-65 
(40-41) 


66-67 
(42-43) 
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| Bits 
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| Function 


mc a ee ce enn cmt namin emt mat 


Address of seek/search address area + 3. 


= Seek check indicated. 

used. 

Over/under seek has occurred. 

= An error has been found, but a seek 
heck is indicated. | 


ddress of 
rea. 


random/sequential retrieval work 


» > 


Of IOAREAS. 


of IOAREA2. 
Of KEYARG. 
Of WORKR. 

sequential I/O area address. 
{L IOREG,*-4 - Load IOREG if IOREG was 


{specified, or a 4-byte NO-OP instruction. 


| 
1x'O0* = 


No verify, X'40' = Verify. 
{ 
1x'08* = Unblocked records, X'00' = Blocked 
| records. 
{R = First prime data record on shared track. 


{Upper limit for sequential retrieval 
| (CCHHR) . 


| 
|H'O! 


= Blocked records, 
jH'2"* = Overflow record, 
{H'8* = Unblocked records. 
[ 
;x'Cc7* = 2311, 2314, or 23193 
{X*FF* = 3330, 3340. 


JInitial values for sequential (CCHHR). 

| 

; 

{Current DASD address for sequential 
{retrieval (MBBCCHHR). 

i 

jCurrent overflow DASD address (MBBCCHHR). 
| 


SEQNTL Table (Part 4 of 6) 


sc ucssidi heehee dee asasessap eben ingests en Nae eve babapeaieosalteandiediceaapeoeneeasien Hetil 


L 















































| EY ED ED SS CD ETSY E-EED END) A EN TLD CDC OS CRA REAR ES ED AD CED ED ED 


{1The length of one entry is the four bytes shown here. The minimum number of entries 
{ is 22 There is one entry per extent. 


SS SS SS — 
|DTF Assembly {| Module | | | | 
| Label |DSECT Label | Bytes {Bits | Function | 
| ——— nn nnn nnn et an eect me eee eccmeecemmemer nas | 
{|&6Filename.T | {| 68-69 | {Number of records tagged for deletion. | 
| i | (44-45) | { I 
| | | | I | 
‘ | {| 70-75 | |For boundary alignment. | 
i | | (46-48) | | | 
| | ( | | | 
| | {| 76-91 | | Reserved. | 
( . | | (4C=5B) | | | 
Ti css itr coe aie tir i cms ems se c-section cs is Si es at mem ti sn <a a ci ei am i tc nin i ig is ee le ise aii i ancien 
Figure 32. DIFIS RETRVE, SEQNTL Table, (Part 5 of 6) 
ic Sk Penne ae a a re a ee a 
{DTF Assembly | Module | | | | 
| Label |DSECT Label | Bytes | Bits | Function | 
|----——— ———+ een nc ern eet femmes ee eres _—-__ | 
|&Filename.B | { 0O-7 | 1X'07',&Filename.St+1, X*40',6 - Long seek CCW] 
i \ | (0-7) | {with command chaining. | 
[ | | | i | 
| | IJHCCCW | 8-63 | {Area to build CCW string. See Figures 68-75 
| i | (8-3F) | {for a description of the channel program | 
| | | | jbuilder for sequential retrieval | 
| | | | | | 
{GFilename.E | | 64-671 | [First entry in DSKXTN table (logical unit, | 
| | } (40-43) | jcell number). | 
i i | | | | 
| | | 72-752 | {4X'FF' - End of DSKXTN table. { 
{ i { (48-48) | | | 
| 
| 
| 
| 
| 


| 
{2@The location of the end-of-table indicator depends on length of DSKXTN table. 
| Ce eee nia met i cn i 


Number in parentheses are displacements in hexadecimal notation. 


| 
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Figure 32. DTFIS RETRVE, SEQNTL Table (Part 6 of 6) 
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(et ee et ee et ee ee ee ee ome 


|DTF Assembly | Module | 
| Label |DSECT Label | 


{ ome DELS CD CSL END AE SEL TIS ED 


[6Filename IJHCCCB 


Bytes 


0-15 
(0-F) 


16 
(10) 


17-19 
(11-13) 
20 (15) 


21 
(15) 


IJHCOPT 


22-28 
(16-1C) 
IJHCPDDV 29 
(1D) 


30 
(1E) 


&Filename.c IJHCSTBY 


IJHCHNDV 31 


(1F) 


| Gases OT Er TTY TEP AD STE MN TY CELA SSA ST ED AED GID ACID OEY OEY CELE SEI SS AS SS ED AD EY A CAT ES CS AY SS SAPS SS A CTS ES AS AT PA SR LS ASSLT PTT AT ED AY LY ED TT A ES CITT 


| 

| Bits 
a a eal ag 
CCB. 


~] ONS WwD a © 


fd WN 2.3 © 


NNW 


SON OF WN a © 


ot 


—_ — 3 ot SZ 


— od tz} 


Fi 


6) 
No 
1 
1 
1 
1 
1 
1 


DT 


Pr 


< 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
| 
| 
| 
| 
| 
| 
| 
| 
}1 
| 
I 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 
|S 
| 1 
{1 
{1 
| 1 
{1 
| 1 
| 1 
| 1 
| 
| 
| 
| 
| 
| 
| 
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Logic module address. 


tea byte. 


Highest 
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| 
| 
| 


Function 





used. 

GET issued. 

COBOL open ignore option. 
Track hold option specified. 
DTF table address constants relocated by 
OPENR. 

switch. 

Data set security. 

Wrong block size error during addition 
to file. 


le type for OPEN/CLOSE (X'27' = ADDRTR). 


used. 
Prime data in core. 
Cylinder overflow. 
Cylinder index in core. 
Blocked records. 
Verify. 
IOAREAS 
used. 
Two I/0 


just used, 0 = IOAREA2 just 


areas present. 


file name. 


ime data device type indicator. 
Xx '00! 2311 

x' ot! 2314/2319 

x'oqe 3330 

x'O8! 3340 general 

x'ogs 3340 35MB 

X "Oa! 3340 7OMB. 


tus byte. 

Uncorrectable DASD error (except WLR). 
WLR error. 

EOF (sequential). 

No record found. 

Illegal ID specified. 

Duplicate record sensed. 

Overflow area full. 

Record retrieved from overflow area. 


y 
ER 


Hout th tm wow th @ 


level index device type. 
2311 

2314/2319 

3330 

3340 general 

3340 35MB 

3340 7OMB. 


x¥'oor 
“ O01! 
X'o4r 
xX'O8! 
x'og't 
X'OA' 


| 
L 
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GS ee yh rete aM Ne ge ee Oe ee ge ONT ee ee em NT ew ae eR EN ee Qe eT hee Pape wd pg er es aaa ama cae aaa | 
{DFT Assembler| Module | | | 
| Label {DSECT Label | Bytes }Bits | Function 
(SS Se ear Ses 
IJHCPNT 32 | {Relative position of the DSKXTN (logical 
(20) junit, cell number) table (in words). This 


[value is the length of the DTF table divided 
[by 4. 


[ 

i 

| 

| ; | [ 
I | | I | 
| { | | | 
| [ i [ | | 
| | {| 33-35 | |First prime data record in cylinder (HHR). | 
[ | {| (21-23) | | 7 | 
| | | 36-37 | JLast prime data track in cylinder (HH). | 
| | | (24-25) | el . | 
i | {| 38 (26) | j|High record number on master index/cylinder | 
| | | | Jindex track (R). { 
( | | | [ 
{ | IJHCPDH 1 39 (27) | {High record number on prime data track (R). | 
| { 1 40 (28) | |High record number on overflow track (R). | 
| [ | { [ | | { 
| | IJHCSTH 1 41 (29) | {High record number on Shared track (R). [ 
| { | | | | | 
| | IJHCTIH } 42 (2A) | |High record number on track index (TI) | 
| | | | J|track (R). | 
{ | | [ [ | 
| | IJHCRTR | 43 (2B) | |Retrieval byte. i 
| | | | 0 {1 = WORKR area specified. { 
| | | {| 1 {1 = WORKS area specified. | 
{ | | {| 2 | Overflow switch. j 
| | | | 3 {1 = Read. ; | 
| | | ; 4 {1 = First record being processed (after | 
{ | | | : | issuing SETL macro). | 
i | | {| 5 {1 = Output. | 
| | | | 6 {1 = Write key. | 
i | { | 7 {1 = PUT macro issued. | 
i | | | | | 
| | {1 44-50 | {Prime data lower limit (MBBCCHH). [ 
{ | | (2C-32) | | | 
i i i { | | 
| | IJHCCIS } 51-57 | |Cylinder index lower limit (MBBCCHH). | 
| | | (33-39) | i | 
{ i | | |. [ 
| | IJHCMIS | 58-64 i |Master index lower limit (MBBCCHH). | 
{ | | (3A-40) | | i 
| | | | | i 
| IJHCILN | 65 (41) | | Switches. | 
1 | | ; Oo {1 = From WAITF routine | 
| | | { 1 11 = Seek check from WAITF. | 
i | | | 2 11 = Data track held.  f 
| | | { 3 {1= Index track held. | 
| | | 1 4 11 = RPS type device (data). | 
| | | 1 5 {1 = RPS type DTF. | 
| | | 1} 6 {0 = Cylinder index. | 
| | | | {1 = Master Index. | 
| | | | 7 {1 = RPS type device (index). | 
| | | | | [ 
|&6Filename.H | IJHCCLPA | 66-73 | |Last prime data record address (MBBCCHHR). | 
| | (42-49) | | | 
{ | | | { i 
i | IJHCRESZ | 74-75 ] |Logical record length (RECSIZE). | 
| | | (4A-4B) | | [ 


| 
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C—. FEY ELD LD LPT LD SILT EP CED GRD MD SLES AS ES GIO SE EmE CEE DI AES RLS 


{DFT Assembler] 
| Label 


Module 


|DSECT Label | 


| -------------+-—- 


&Filename.S 


&Filename. W 


&Filename.P 


r 


Figure 33. 


( 


IJHCBLSZ 
IJHCRL10 


IJHCBFAC 


IJHCABCD 


IJHCCMAX 


TJHCKYLC 


IJHCATB2 
IJHCATB3 
IJHCSADR 
IJHCBKCT 
IJHAC PRC 


IJHACSTI 


IJHACLTA 


IJHACLCA 


IJHCKYSZ 


| 

Bytes 
76-77 
(4C-4D) 





78-79 
(4E-4F) 


80-81 
(50-51) 


82-83 
(52-53) 
84-85 
(54-55) 


86-87 
(56-57) 
88-89 

(58-59) 


90-91 
(5A-5B) 
92-93 
(5C-5D) 


| 

| 

| 

| 

i 

| 

| 

| 

i 

| 

{ 

i 

| 

| 

| 

| 

| 

| 

| 

{ 

| 

| 

| 94-95 
| (5E-5F) 
| 96-97 
| (60-61) 
| 98-99 
| (62-63) 
| 
| 
I 
| 
| 
| 
[ 
{ 
| 
| 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| 
{ 


100-101 
(64-65) 


| 102-103 


(66-67) 


104-113 
(68-71) 


114-123 
(72-7B) 


124-127 
(7C-7F) 


12 
(80) 


129-133 
| (81-85) 


1134-138 


| (86-84) 
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| Bits 
——- 


© 


Io. iN § 
-_ 


ui 


[Index entry length 
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i 

| Function 
{Key length (KEYLEN). 

| 

[ | 

|Block size (logical record length times 
{number of records). 

[ 

}Overflow record length 
Jlength + 10). 

i 

|Blocking factor (number of logical records 
[in block (NRECDS)). 








(logical record 


(key length + 10). 
| 


[ 
| Prime data record length (key length plus 


|physical record length (block size)). 
{Overflow record length with key (key length 
{+ Logical record length + 10). 

i 

|Prime data record format length (key length 
{+ block size + 8). 

|Overflow record format length 
Jlogical record length + 18). 
{ | 
|Key location (KEYLOC) for blocked records. 


(key length + 


{Constant = 5. 
| 
j|Constant 
| 

i 
|Displacement of Part 2 of the DTFIS table 
{from start of Part 1. 

| 

{Displacement of Part 3 of the DTFIS table 
{from start of Part 1. 

l 

|Seek/search address area. 

| 

| 


10. 


‘|Random/sequential retrieval work area. 


| 
t 


{Prime data record count. 


{Status indicators. 


Last cylinder index entry address (CCHHR). 


{Not used. 

{1 = File closed. 

{Not used. 

{|1 = Last prime data track full. 
11 = Block complete. 

| 

JLast track index normal entry address 
| (CCHHR) . 

l 

i 

[ 
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| 
| 
| 
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—— 
{DFT Assembler| 
i Label 











&Filename.I 
&Filename.A 


&Filename.C 


cece ceeerenoecs anemone essen Senet crn e-em tu aoa mars nova 


Figure 33. 





Module 
{DSECT Label | 


IJHACLMA 


IJHACLOA 


IJHACOTC 


ejantorc 
IJHACORC 
IJHACOLL 
IJHACOUP 


IJHAHRAA 


IJHADLNK 
IJHAARAD 


IJHACUSE 


IJHADKEY 


IJHAKLN8 


| (D8-DB) 


[ 
Bytes 


139-143 
(8B-8F) 


144-151 
(90-97). 


152-153 
(98-99) 


(9A-9B) 


156-157 
(9C-9D) 


158-164 
(9E-A4) 


{ 

I 

| 

| 

| 

[ 

| 

[ 

| 

1 154-155 
l 

| 

| 

| 

| 

| 

I 

| 

| 165-171 
| (A5-AB) | 


| 
(172-175 


| (AC-AF) 
{176-179 
| (BO-B3) 


| 
| 180-183 
| (B4-B7) 


[ 
1184-187 
| (B8-BB) 
1188-191 
| (BC-BF) 
1192-195 
| (CO-C3) 


| 
| 196-199 
| (C4-C7) 


| 

| 200-203 
| (C8-CB) 
| 

| 204-207 
| (CC-CF) 
[ 


| 

| 208-211 
| (DO-D3) 
{212-215 
| (D4-D7) 


| 
| 216-219 





[ 
| Bits 
wef nee 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 








{ Function 
of ee mane cece nee en a ere A RS 
[Last master index entry address (CCHHR). 


[ 
jLast independent overflow record address 


| (MBBCCHHR) . 


|Number of independent overflow tracks. 


Overflow record count. 


| Independent overflow area lower limit 
{ (MBBCCHH#) . 


JIndependent overflow area upper limit 
{ (MBBCCHH). 


{ 

J) A(&Filename.D) 
jcylinder overflow control record 
{|A(&Filename. D+8) 


(COCR) . 


| field. | 

{A (&Filename.D+16) - Address of work area 
Jcurrent track index overflow entry count 
|field. 
jA(&Filename.D+24) - Address of work area 
Jcurrent prime data record count field. 
JA(&Filename.D+32) - Address of work area 
Jcurrent overflow record count field. 
jA(&Filename.D+40) - Address of work area 
{track index normal entry data field. 


jA(&Filename.D+50) - Address of work area 


Number of full cylinder overflow areas. | 


- Address of work area for 


- Address of work area for 
Jthe current track index normal entry count 


| 


for | 
| 
[ 
for | 
i 
for] 
| 
for | 
| 


| 
for | 


[current overflcw record sequence-link field. | 


l 
| A (G IOAREAL) 
Jarea used for adding records to a file. 


| 

JA (&WORKL) - Address of WORKL, work area 
{containing user data records to be added 
jthe file. 


| 
j)A (6 Filename. K) 


| 

| A (G T[OAREAL+8) 
| IOAREAL. 

{ 

JA (&IOAREAL+8+&KEYLEN) - Address of data 
jposition in IOAREAL. 
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- Address of IOAREAL, the I/0 


- Address of the ADD key area 


- Address of key position in 


| 

| 

| 

{ 
to | 
| 
[ 
| 
| 
| 
| 
| 
| 
| 


aoe | 


111 


pdt cmaat: 
{DTF Assembly 
| Label 


{6Filename. 2 





&Filename.H 


| en 





Figure 33. 





Module 


|DSECT Label | 





IJHCASAD 


IJHSIOAR 


IJHCRARA 


IJHCRKEY 


IJHCRWOR 


IJHSDB1 


IJHSLIOR 


IJHSLMIT 


IJHSINIT 


IJHSCADR 


IJHSCOVF 


IJHSRCNT 


IJHSTICU 





Bytes 


0-3 
(0-3) 


4 (4) 


5-7 
(5-7) 


8-11 
(8-B) 


12-15 
(C-F) 


16-19 
(10-13) 


20-23 
(14-17) 


24-27 
(18-183) 


28-31 
(1C-1F) 


32 (20) 
33 (21) 
34 (22) 
35-39 

(23-27) 


40-41 
(28-29) 
42 (2A) 
43-47 
(2B-2F) 


48-55 
(30-37) 


56-63 
(38-3F) 


64-65 
(40-41) 


66-67 
(42-43) 
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i i 
{Bits | 
See een eemcmrre Are 


| 
| . 
}1. L IOREG,*-4 - Load I/O register for 
] sequential or 
}2. 4-byte NO-OP instruction for randon. 
| 
1X*00" = No Verify; X¥'40" = Verify. 
}x'00* = Blocked; Y'08! = Unblocked. 
|R = First prime data record on shared track. 
|Limits for sequential (CCHHR). 
| 
| 
|H'*O*" = Blocked records. 
JH'2* = Overflow record. 
{H'*8* = Unblocked records. 
| 
(X'c7* = 2311, 2314, or 2319; 
[X'FF' = 3330, 3340. 
| 
JInitial values for sequential. 
| 
;}Current sequential DASD address (MBBCCHHR). 
| 
Current overflow DASD address (MBBCCHHR). 


Licensed Program - Property of IBM 





Function 











- Address of the 
jseek/search address areat3. 


j}A(&Filename.S+3) 


i 

11 = Seek check indicated. 

{Not used. 

{1 Over/funder seek has occurred. 

}1 An error has been found, but a seek 
| check is indicated. 

{|A(&Filename.W) - Address of the random/ 
j|sequential retrieval work area. 

{ 

j|Address of IOAREAS, I/O area used for 
|sequential retrieval. 

[ 

{Address of IOAREAR, I/O area used for randon 
jretrieval or address of IOAREA2 (if 
|specified) for sequential retrieval. 


| 

{Address of KEYARG, field containing 
juser-supplied key used for random READ/WRITE 
joperations and sequential retrieval 
Jinitiated by key. 


{Address of WORKR, work area used for random 
|retrieval. 


|Current sequential I/O area address. 


Sequential record count. 


{Current track index entry for sequential 
| (HR) 





DIFIS ADDRTR Table (Part 5 of 7) 
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Co re ge ade ee eg See, epee Re Se Cae Gee ge ee Eh Eg a ee Ne ae ie eam nO aig agee Mee ke gee eee ee hee tee ee oe wee ae 

{|DTF Assembly | Module | | | , | 

| Label |DSECT Label | Bytes } Bits | Function | 

rrr nn tf rn te — excess Gare cate a | 

{6Filename.T | | 68-69 ; |Number of records tagged for deletion. | 
| (44-45) | | | 

| | | | | | 

| | IJHRREGS | 70-71 | {LR SIOREG,O for random (or 2-byte NO-OP for | 

; | } (46-47) | jsequential). 

I | | { | 

{|E6Filename.G | IJHRIDSV | 72-79 | |DASD address save area for random retrieval 

| | | (48-4F) | | (MBBCCHHR). 

( | | | | | 

| | IJHRADSV | 80-83 ] |Record pointer within I/O area for write 

| | | (50-53) | {| (for random retrieval). 

| | [ [ i | 

{|&6Filename.R | IJHROVCN | 84-87 i {Nonfirst overflow record count. 

| | — fe (548-57) | | 


|The following information is generated if the cylinder index in core option is 
jspecified. Bytes 88-91 (58-5B) are not used. 


RD ES CRT SED NS SEAS EE ELS CAT ES AED CE CTS AD ES ORD AS SD ELS MD EG AS AE ED ED CIN ATES ATS SP A TS TT IG OE ATLL TAS LD EY ARTS IS AE ETT SN ES ED ALIENS IES oe ce SPRY ARE GIN ATED 


| IJHCORST | 92-95 | JA(GINDAREA) - Starting address of main 

{ | (5C-5F) | jstorage area specified for cylinder index. 
| | 96-97 { JAL2 (GINDSIZE) - Number of bytes in main 

| | (60-61) | {storage available for cylinder index. 

| {| 98-105 | |Next cylinder index entry to be read 

| (62-69) | | (MBBCCHHR) . 

| 1106-110 | jLast cylinder index entry (CCHHR). 

[ [| (6A-6E) | 

| [ | i 

| IJHCORBT [111 (6F) | {Core index byte. 

| | |; 0 {1 = First time through $$BINDEX. 

| { {j 1 {1 = End of cylinder index reached. 

| { | 2 {1 = Index skip option specified. 

i { {| 3 {1 = Suppress index in-core option and read 
| | | { cylinder index. 

| | | 4-7 | Not used. . 

| | [ i 

{| IJHCORKY {112-115 | {Pointer to key (stored by module). 

l | (70-73) | i 





EE CED AMS IS CRED EES OD ett mes ES EAA EP ED Te A I CRN 


























|The following information is generated if the prime data in-core add function is 
|specified. This information is aligned on a double word boundary. If both cylinder 
jindex in-core and prime data in-core add functions are specified, the following 
{information is found in bytes 116-131 (74-83). 


END EES ED OED CE GAR CED MED COED UD HE ED CR EEE ED CE ARTES IED CED CAT RED OE ECD FD ED RAP SE SM A TD EE OLED AES CY TTD SEDO EID A SDS SAARC ACAD EOE TS CED PE TS OG I CTS SD TE TTD ELT ET TBD 





| 


{ | IJHPSIZE |176-117 | |Size of IOAREAL. 
| | | (74-75) | | 
{ | i | | 
| | IJHPMAX {118-119 | {Maximum number of prime data records in main 
| | 1 (76-77) | | storage. 
i | | [ ( 
| | IJHPDSP1 {7120-123 | jAddress of write CCWs. 
i | | (78-78) | { 
{| | i | i 
| | IJHPDSP2 }124-127 | {Address of read CCWs. 
| | | (7C-7F) | | 
i | | [ i 
| | IJHPSW 1128 (80) | | Switch byte. 
| | | | 0 {1 = EOF (Bits 1-7 not used). 
| | | l l 
| | 1129 (81) | | Reserved. 
i | | I [ 
| {| IJHDCWRK {130-131 | {Work field for I/O module. 
i | | i | 
| ne 


(82-83) 
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. Co. 





{DTF Assembly | 
i Label 


(ee 
|&6Filename.B 


&Filename.D 


&Filename.E 


&Filename. K 





Coo 





Figure 33. 


Module 


|DSECT Label | 
eee 


IJHCCCW 


IJHACOCR 
IJHACTNA 
IJHACTOA 
IJHACRID 
IJHACFID 
IJHACTIN 
IJHACLNK 
IJHACTIA 


IJHAGATE 


IJHAOCOH 


IJHAICOM 


IJHAISKY 


{2 Each entry in the DSKXTN table is four bytes long. The minimum number of entries 
| is two. There is one entry per extent. 
[2 Location of the end-of-table indicator depends on length of DSKXTN table. 


| 
Bytes 





0-7 
(0-7) 
8-63 
(8-3F) 


64-127 
(40-7F) 


128-135 
(80-87) 


136-143 
(88-8F) 


| 

| 

I 

| 

| 

| 

( 

| 

[ 

| 

| 

| 

| 

| 
1744-151 
{| (90-97) 
I 
{152-159 
| (98-9F) 
| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
| 
| 
| 


160-167 
(AO-A7) 


168-177 
(A8-B1) 


178-187 
(B2-BB) 


188-197 
(BC-C5) 


1198 
| (C6) 
1199-201 
| (C7-C9) 


| 

| 202-203 
| (CA-CB) 
1204-211 
| (CC-D3) 


| 

| 212-217 
| (D4-D9) 
| 


| 218-223 
| (DA-DF) 


| 224-2271 


| (EO-E3) 


| 232-2352 


| (E8-EB) 


| 
| 236+ 
| (EC-end) 


| 
| 
=ee 
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| Function 


}X'O7', &Filename.S+1, X'40', 6 - Long seek 
}CCW with command chaining. 

jChannel program build area. See Figures 
176-112 for a description of the channel 
{program builder. 


{Channel program build area for add function 


Jonly. - 

f 3 

{Cylinder overflow control record (COCR). 
| 

| e 

|Current track index normal entry count 

| field. 

l 

|Current track index overflow entry count 
{| field. 

| 

{Current prime data record count field. 

i 

| 


{|Current overflow record count field. 
| 


[ 
|Track index normal entry data field. 


jCurrent track index overflow entry data 
| field. 


I 

1X¥'01" - Add to EOF. , 
1X'02" - Add to independent overflow area. 
{Overflow control bytes (CCH). 

| 

[ 

{High HR on overflow track. 
i 

|Volume upper limit for prime data records 
| (MBBCCHHR). See Figure 30. 

i 

[CLC 0(&KEYLEN, 13) ,0 (6) 


See Figure 29. 


- Unblocked 


|CLC 0 (&KEYLEN, 13) , EKEYLOC-1 (6) - Blocked 
{Utility CLC for key. 

| 

{MVC O(&KEYLEN,13),0(12) - Unblocked 

[MVC 0 (&KEYLEN, 13) ,SKEYLOC-1(12) - Blocked 


JUtility MVC for key. 

{First entry in DSKXTN table (logical unit, 
jcell number). 

{4X*FF' - End of DSKXTN table. 

| 

|Key area for add only. Number of bytes 
|depends on key length, KEYLEN. 











Numbers in parentheses are displacements in hexadecimal notation. 
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Current overflow record sequence-link field. 


L 
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ISMOD MACRO 


The ISMOD (Indexed-Sequential Module) macro 
instruction must be included for each logic 
module required to support each DTFIS macro 
in a particular problem program. The logic 
modules are described by an ISMOD header 
entry and a series of parameter entries. 
See VSE/Advanced Functions Macro Reference 


for an explanation of the parameters. 


The following imperative macros use the 
logic in the ISMOD: 


ESETL 

GET 

PUT 

READ 

WAITF 

WRITE, KEY 
WRITE, NEWKEY 


The logic for the other imperative macros 
used by ISAM (ENDFL, ESETL, SETFL and SETL) 
is fcund in various B-transient routines. 
Flowcharts for ISFMS are in alphabetical 
order by macro within function. The 
functions appear in the following sequence: 


 LOAT 
ADD 
RETRVE, 
RETRVE, 
ADDRTR 


RANDCM 
SEQNTL 


This section does not discuss each of these 
macros separately but, instead, presents 
them in the context of a particular 
function. 


REENTERABLE MODULE: A reenterable module is 
a logic module that can be asynchronously 
used, or shared, by more than one file. 
ISMOD is made reenterable by inclusion of 
the RDONLY=YES parameter in the ISMOD macro 
instruction. The RDONLY (read-only) 
parameter assures, regardless of the 
processing requirements of any file(s) 
uSing the module, that the generated logic 
module is never modified in any way. This 
feature is implemented through the 
establishment of unique (one for each task 
using the module) save areas external to 
the logic module. Each save area must be 
72 bytes and doubleword aligned. The save 
area for ISMOD contains general registers 
2-14, the last cverflcw record address, the 
new overflow record address, and a work 
area for the channel program builder. A 
task must provide the address of its unique 
save area in register 13 before an 
imperative macre is issued to the file and 
a logic module is entered by the task. 


ERRCR CETION EXTENSIONS: When ERREXT is not 
specified ard an unrecoverable I/0 error 
occurs, ISFMS indicates this error in 
Filename.C and returns to the problem 
program. Control is returned to ISFMS only 
by issuing ancther macro instruction. 


to ISAM via the ERET macro. 





+ 


When ERREXT is specified and an 
unrecoverable I/O error occurs, bit 0 of 
Filename.C is set on. Also, byte 2, bit 2 
of the CCB in the DIF is set on when data 
transfer has not occurred. The problem 
program error processing routine should 
determine if data transfer occurred by 
checking the data transfer bit (byte 2, bit 
2) in the DTF. Information concerning the 
record being read or written and the 
Operation being performed at the time of 
the error can be found in the 18-byte 
parameter list pointed to by register 1. 
See Figure 34 for a description of this 
parameter list. 


a a laine 
Bytes|Bits|] Contents 

i Saas: Sasa maar aceiaiec ceca 

0-3 | DTF address. 

|Main storage address of the 
| record in error. 





4-7 


[ 

| 

[ 

[ 

[ 

8-15] {DASD address of record in 

{ Jerror (MBBCCHHR), where M is 
| {the extent sequence number and| 
{ 1R is the record number. R can| 
] {be inaccurate if a read error | 
| Joccurred during a read of the | 
| |highest level index. 

[ | 

| |Record identification: 
| . 

; 

[ 

[ 

[ 

| 

i 

[ 

[ 

{ 

l 

i 

| 

| 


eed 


i 
| Data. 

| Track index. 
[Cylinder index. 


[ WN © 


| 
[ 
[ 
| 
| 
| 
| 
|Master index. | 
{ | 
{Type of operation: | 
l | 
| Not used. | 
} Not used. | 
| Write. | 
| Read. | 
{ | 
| 


}Command code of failing CCW. 
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Figure 34. ERREXT Parameter List 

After checking for errors and taking 
corrective action if necessary, the problem 
program error processing routine can return 
The ERET 
IGNORE or ERET SKIP macro returns to ISAM 
to ignore the error condition and process 
the record. The ERET RETRY returns to ISAM 
to make another attempt to read or write 
the record. 


Notes The ERREXT coding is not designed to 
handle irrecoverable errors that are posted 
in Filename.C. Examples of irrecoverable 
errors are No Record Found, Prime Data Area 
Full, Master Index Full, and so on. 


meaningful only when creating the file or 

sequentially retrieving from the file. If 
IOAREA2=YES is specified as an ISMOD macro 
parameter, and the presence of two I/0 
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areas is indicated in the DTF table, 
overlapping of I/O with processing is. 
provided for the load create and sequential 
retrieve functicns. 


ISAM MACRO INSTEUCTIONS TO LOAD OR EXTEND A 
DASD FILE 


The function of originally loading a file 
of presorted records onto DASD, and the 
function of extending the file by adding 
new presorted records beyond the previous 
high record, are the same. Both are 
considered a LOAD operation (specified by 
the DTFIS entry IOROUT), and they both use 
the same macro instructions in the problem 
program. However, the type field in the 
DLBL card must specify ISC for load 
creation and ISE for load extension. 


The areas of the volumes used for the 
file are specified by job control EXTENT 
cards. The areas are: the prime data area 
where the data records are written, a 
cylinder index area where the user wants 
ISAM to build the cylinder index, and a 
master index area if a master index is to 
be built (specified by the DTFIS entry 
MSTIND). 


During the load operation, ISAM builds 
the track, cylinder, and master (if 
specified) indexes. 


Three differert macro instructions are 
always required in the problem program to 
load original or extension records into the 
logical file on DASD. 


The SETFL (set file load mode) macro 
instruction causes ISAM to set up the file 
so that the load or extension function can 
be performed. When loading a file, SETFL 
preformats the last track of each track 
index; but when extending the file, SETFL 
preformats only the last track of the last 
track index plus each new track index for 
the extension of the file. This allows 
prime data on a shared track to be 
referenced even though no track index 
entries exist on the shared track. 


This macro must be issued whenever the 
file is to be lcaded or extended. 


When a WRITE macro instruction with the 
parameter NEWKEY is issued in the problem 
program between a SETFL instruction and an 
ENDFL instructicn (the third macro required 
for loading), it causes ISAM to load a 
record onto DASTI. 


Before issuing the WRITE instruction, 
the problem program must store the key and 
data portions of the record ina work area 
(specified by DTFIS WORKL). The ISAM 
routines construct the I/O area by moving 
the data record to the data area, moving 
the key to the key area, and building the 
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count field. When the I/O area has been 
filled, ISAM transfers the records to DASD 
storage and then constructs the count field 
for the next record. The WAITF macro 
should not be used when loading or 
extending an ISAM file. 


Before records are transferred, ISAM 
performs both a sequence check (to ensure 
that the records are in order by key) anda 
duplicate-record check. 


After each WRITE is issued, ISAM makes 
the ID of that record or block available to 
the problem program. The ID is located in 
an 8-byte field labeled Filename. H. 


As records are loaded on DASD, ISAM 
writes track index entries each time a 
track is filled, writes a cylinder index 
entry each time a cylinder is filled, and 
writes a master index entry (if DTFIS 
MSTIND,is specified) each time a track of 
the cylinder index is filled. 


The ENDFL macro performs an operation 
(Similar to a CLOSE) for the file that has 
been loaded. It writes the last block of 
data records, if necessary, and then writes 
an end-of-file record after the last data 
record. It writes any index entries that 
are needed. It also writes inactive track 
index entries for the unused portion of the 
prime data extent for the 2311 device type. 
For DASD types other than 2311, only the 
remaining portion of the last cylinder 
containing prime data records has inactive 
track index entries. 


When extending or adding to a file, the 
user is responsible for checking byte 16, 
bit 7 of the DIF to determine whether the 
correct blocksize has been specified. 


ISAM MACRO INSTRUCTIONS FOR ADDING RECORDS 
TO A FILE 


After a file has been organized on DASD, 
new records can be added to the file. Each 
record is inserted in the proper place 
sequentially by key. This function is 
provided by specifying ADD or ADDRTR in the 
DTFIS entry IOROUT. 


The file can contain either blocked or 
unblocked records, as specified by the 
DTFIS entry RECFORM. When the file 
contains blocked records, the user must 
provide ISAM with the location of the key 
field that is provided through the DTFIS 
entry KEYLOC. The records to be inserted 
are written one record at a time. The 
records must contain a key field in the 
same location as the records already in the 
file. Whenever the addition of records is 
to follow sequential retrieval (ADDRTR), 
the macro instruction ESETL must be issued 
before a record is added. 


Licensed Program - Property of IBM 


Two macro instructions, WRITE NEWKEY and 
WAITF are used in the problem program for 
adding records to a file. 


Before the WRITE macro is issued for 
unblocked records, the program must store 
the record (key and data) to be added into 
a work area specified in the DTFIS entry 
WORKL. For blocked records, the program 
must store only the data (the key is 
assumed to be a part of the data). Before 
any records are transferred, ISFMS checks 
for duplicate record keys. If no 
duplication is found, ISAM inserts the 
record in the file. 


To insert a record into a file, ISAM 
performs an index search at the highest 
level index. This search determines if the 
record to be inserted can be placed within 
the file, or if it is higher than the last 
record on the file. : 


If the record can be inserted within the 
file, searching of the master index (if 
available), the cylinder index, and the 
track index determines the appropriate 
locaticn to insert the record. 


For an entry to an unblocked file, an. 
equal/high search is performed in the prime 
data area of the track. When a record on 
the track is found that is equal to or 
higher than the record to be inserted, the 
record is read from the track and placed in 
storage (in the I/O area). The two records 
are compared to see if a duplicate record 
is found. If a duplicate record is found, 
that information is posted to the user in 
the DTF table at Filename.c. If no 
duplicate is found, the appropriate record 
(in the user's work area) is written 
directly on the track. The record (just 
displaced from the track) in the I/O area 
is moved by ISAM to the user's work area. 
The next record on the track is read into 
the I/O area. 


Then, the record in the work area is 
written on the track. Succeeding records 
are shifted until the last record on the 
track is set up as an overflow record. If 
the ADD I/O area (IOAREAL) is increased to 
permit the reading or writing of more than 
one record on DASD at a time, an equal/high 
search is performed in the prime data area 
of the track. When a record on the track 
is found that is equal to or higher than 
the record to be inserted, as many records 
as can fit into the I/O area specified in 
the DTFIS operand IOAREAL are read from the 
track and placed in storage (in the I/0 
area). 


The record to be added is compared to 
existing records in the I/O area. Ifa 
duplicate key is found, the condition is 
posted to the user in the DTF table 
Filename.C. If no duplicate is found, the 
records are shifted in storage, leaving the 
record with the highest key remaining in 
the user's work area. The other records 


indexes. 


are rewritten directly onto the track. Any 
remaining record(s) on the track are then 
read into the I/O area. The process 
continues until the last record on the 
track is set up as an overflow record. 


This last record is then written into 
the appropriate overflow area, and the 
appropriate track index entries are 
updated. This is the cylinder overflow 
area, if CYLOFL has been specified for this 
file and the area has not been filled. 


If the cylinder overflow area is filled, 
or if only an independent overflow area has 
been specified by a job control EXTENT 
card, the end record is transferred to the 
independent overflow area. If an 
independent overflow area has not been © 
specified (or is filled) and the cylinder 
overflow area is filled, there is no room 
available to store the overflow record. 
ISAM posts this condition in the DTF table 
at Filename.C. 


In all cases, before any records are 
written, ISAM determines if room is 
available. 


For an entry to a blocked file, the work 
area, WORKL, is required in the DTFIS 
entries. Each record to be added must 
contain a key field in the same location as 
the records already in the file. The 
high-order position of this key field, 
relative to the leftmost position of the 
logical record, must be specified to ISAM 
by the user. The DTFIS entry KEYLOC is 
used for this specification. 


When the WRITE macro is issued in the 
problem program, ISAM first locates the 
correct track by referring to the necessary 
master (if available), cylinder, and track 
Then, a search on the key areas 
of the DASD records on the track is made to 
locate the desired block of records. The 
block of records (or as many as will fit 
into the I/O area if IOAREAL has been 
increased for reading and writing more than 
one record on DASD at a time) is read into 
the I/O area. ISAM then examines the key 
field within each logical record to find 
the exact position in which to insert the 
new record and to check for duplication of 
records. If duplication of keys exists, 
the condition is posted in Filename.c. If 
the key of the record to be inserted 
(contained in the work area WORKL) is low, 
it is exchanged with the record presently 
in the block. 


This procedure continues with each 
succeeding record in the block until the 
last record is moved into the work area. 
ISFMS then updates the key area of the DASD 
record to reflect the highest key in the 
block. If the IOAREAL has been increased, 
succeeding blocks in the I/O area are also 
updated. The block (or blocks) is then 
written back onto DASD. The remaining 
blocks on the track are Similarly processed 
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until the last logical record on the track 
is moved into the work area. This record 
is then set up. as an overflow record with 
the proper sequence-link field and moved to 
the overflow area. The indexes are updated 
and ISAM returns to the problem program for 
the next record to be added. If the 
overflow area is filled, the information is 
posted in Filename.c. 


If the proper track for a record is an 
overflow track (determined by the track 
index), ISAM searches the overflow chain 
and checks for duplication. If no 
duplication is found, ISAM writes the 
record, preceded by a sequence-link field 
in the data area of the DASD record, and 
adjusts the appropriate linkages to 
maintain sequential order by key. 
writes the new record in either the 
cylinder overflcw area or the independent 
overflow area. If these areas are filled, 
the user is notified by a bit in 
Filename.C. 


ISAM 


If the new record is higher than all 
records presently in the file (end-of- 
file), ISAM checks to determine if the last 
track containing data records is filled. 

If it is not, the new record is added, 
replacing the end-of-file record. fThe 
end-of-file record is written in the next 
record location on the track, or on the 
next available prime data track. Another 
track must te available within the file 
limits. If the end-of-file record is the 
first record on any track, the new record 
is written in the appropriate overflow 
area. After each new record is inserted in 
its proper location, ISAM adjusts all 
indexes that are affected by the addition. 


The WAITF macro instruction is issued to 
ensure that the transfer of a record has 
been completed. 


This instruction must be issued before 
the problem program attempts to process an 
input record or build another output record 
for the file concerned. The program does 
not regain control until the previous 
transfer of data is complete. 


ISAM MACRO INSTRUCTIONS FOR RANDOM 
RETRIEVAL 


When a file has been organized by ISAM, 
records can be retrieved in random order 
for processing and/or updating. Retrieval 
must be specified in the DTFIS entry IOROUT 
(IOROUT=RETRVE or IOROUT=ADDRTR). Random 
processing must be specified in the DTFIS 
entry TYPEFLE=RANDOM. 


Because random reference to the file is 


by record key, the problem program must 
supply the key of the desired record to 
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ISAM. To do this, the key must be stored 
in the storage key field specified by the 
DTFIS entry KEYARG. The specified key 
designates both the record to be retrieved 
and the record to be written back into the 
file in an updating operation. Records 
added to the file between the READ and the 
WRITE macro for a particular record to be 
updated can result in a lost record and a 
duplicate key. 


Three macro instructions (READ KEY, 
WRITE KEY and WAITF) are available for use 
in the problem program for retrieving and 
updating records randomly. 


The READ KEY instruction used in 
conjunction with WAITF macro instruction 
causes ISAM to retrieve the specified 
record from the file. 


To locate the record, ISAM searches the 
indexes to determine the track on which the 
record is stored, and then searches the 
track for the specific record. When the 
record is found, ISAM transfers it to the . 
I/O area specified by the DTFIS entry 
IOAREAR. The ISAM routines also move the 
record to the specified work area if the 
DTFIS entry WORKR is included in the file 
definition. 


When records are blocked, ISAM transfers 
the block that contains the specified 
record to the I/O area. It makes the 
individual record available for processing 
either in the I/O area or the work area (if 
specified). For processing in the I/0 
area, ISAM supplies the address of the 
record in the register specified by DTFIS 
IOREG. The ID of the record can be 
referenced by using Filename.G. 


The WRITE instruction with the parameter 
KEY is used in conjunction with the WAITF 
macro instruction for random updating. It 
causes ISAM to transfer the specified 
record from main storage to DASD storage. 


ISAM rewrites the record retrieved by 
the previous read instruction for the same 
file. The record is updated from the work 
area, if one is specified; otherwise, from 
the I/O area. The key need not be 
specified again ahead of the WRITE 
instruction. 


The WAITF macro instruction is issued to 
ensure that the transfer of a record has 
been completed. This instruction must be 
issued before the problem program attempts 
to process an input record or build another 
output record for the file concerned. The 
program does not regain ccntrol until the 
previous transfer of data is complete. 


The WAITF instruction posts any 
exceptional information in the DTFIS table 
at Filename. C. 
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ISAM MACRO INSTRUCTIONS FOR SEQUENTIAL 
RETRIEVAL 


When a file has been organized by ISAM, 
records can be retrieved in sequential 
order by key for processing and/or 
updating. The DIFIS entry IOROUT=RETRVE 
must be specified. Sequential processing 
must be specified in the DPTFIS entry 
TYPEFLE=SEQNTL. 


Although records are retrieved in order 
by key, sequential retrieval can start ata 
record in the file identified either by key 
or by the ID (identifier in the count 
field) of a reccrd in the prime data area. 
Sequential retrieval can also start at the 
beginning of the logical file. The user 
specifies, in SETL, the type of reference 
he will use in the problem progran. 


Whenever the starting reference is by 
key and the file contains blocked records 
(RECFORM=FIXBLK), the user must also 
provide ISAM with the position of the key 
field within the records. This is 
specified in the DTFIS entry KEYLOC. To 
search for a reccrd, ISAM first locates the 
correct block by the key in the key area of 
the DASD record. (The key area contains 
the key of the highest record in the 
block.) Then, ISAM examines the key field 
within each reccrd in the block to find the 
specified record. 


Four macro instructions (SETL, GET, PUT 
and ESETL) are available for use in the 
problem program for retrieving and updating 
records sequentially. | 


The SETL (set limits) macro instruction 





























initiates the mode for sequential retrieval 
and initializes the ISAM routines to begin 
retrieval at the specified starting 

address. It requires two parameters. The 
first operand (Filename) specifies the name 
of the file (specified in the DTFIS header 
entry) from which records are to retrieved. 


The second operand specifies where 
processing is to begin. If the user is 
processing by the record ID, the operand 
Idname or (r) specifies the symbolic name 
of the main-storage field in which the user 
supplies the starting (or lowest) reference 
for ISAM use. The symbolic field contains 
information as shown in Figure 35. If 
processing is to begin with a key supplied 
by the user, the second operand is KEY. 

The key is to be supplied by the user in 
the field specified by the DTFIS entry 
KEYARG. If the specified key is not 
present in the file, an indication will be 
given at Filename.c. 

The second operand BOF specifies that 
retrieval is to start at the beginning of 
the logical file. 


Selected groups of records within a file 
containing identical characters or data in 
the first locations of each key can be 
processed by specifying GKEY in the second 
operand. The GKFY specification allows 
processing to begin at the first record (or 
key) within the desired group. The user 
must supply a key that will identify the 
significant (high order) bytes of the 
required group of keys. The remainder (or 
insignificant bytes) of the key must be 
padded with blanks, binary zeros, or bytes 


' lower in collating sequence than any of the 


insignificant bytes in the first key of the 
group to be processed. The problem program 
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Figure 325. 





Pointer to First Record to be Processed by Sequential Retrieval 
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must determine when the generic group is 
completed. Ctherwise, ISAM continues 
through the remainder of the group. 


This method also allows starting at a 
key equal to cr greater than the one 
specified in the DTFIS entry KEYARG without 
getting an error indication in Filename.cC. 


The GET macre instruction causes ISAM to 
retrieve the next record in sequence from 
the file. It can be written in either of 
two forms, depending on where the record is 
to be processed. 


The first form is used if records are to 
be processed in the I/O area (specified by 
DTFIS IOAREAS). It requires only one 
parameter, which is the name of the file 
from which the record is to be retrieved. 
ISFMS transfers the record from this file 
to the I/O area, and the record is 
available for the execution of the next 
instruction in the problem program. The 
key is located at the beginning of IOAREAS 
and the register (IORFG) points to the 
data. If blocked records are specified, 
ISAM makes each record available by 
supplying its address in the register 
specified by the DTFIS entry IOREG. The 
key is contained in the record. 


The second fcrm of the GET instruction 
is used if records are to be processed ina 
work area (DTFIS specifies WORKS). It 
requires twce parameters both of which can 
be specified as symbols or in register 
notation. The first is the name of the 
file, and the second is the name of the 
work area. When register notation is used, 
workname should not be preloaded into 
register 1. The record is available for 
the execution of the next program 
instruction. 


If blocked records are specified in the 
file definition, each GET that transfers a 
block of records to main storage will, if 
necessary, also write the preceding block 
back into the file in its previous block 
location. GET writes the preceding block 
if a PUT instruction has been issued for at 
least one of the records in the block. If 
no PUT instructions have been issued, 
updating is not required for this block, 
and GET does not causé the block to be 
rewritten. Whenever an unblocked record is 
retrieved from the prime data area, ISAM 
supplies the ID cf that record in the field 
addressed by Filename.H. If blocked 
records are specified, ISAM supplies the ID 
of the block. The PUT macro instruction is 
used for sequential updating of a file, and 
causes ISAM to transfer records to the file 
in sequential order. PUT returns a record 
that was obtained by a GET. It can be 
written in either of two forms, depending 
‘On where records are processed. 


The first form is used if records are 


processed in the I/O area (specified by 
DTFIS ICAREAS). It requires only the name 
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of the file to which the records are to be 
transferred. 


The second form of the PUT instruction 
is used if records are processed in a work 
area. It requires two parameters, both of 
which can be specified either as a symbol 
or in register notation. The first is the 
name of the file, and the second is the 
name of the work area. When register 
notation is used, workname should not be 
loaded into register 1. The work area name 
may be the same as that specified in the 
preceding GET for this file, but this is 
not required. ISAM moves the record from 
the work area specified in the PUT 
instruction to the I/O area specified for 
the file in the DTFIS entry IOAREAS. 


When unblocked records are specified, 
each PUT writes a record back onto the file 
in the same location from which it was 
retrieved by the preceding GET for this 
file. Thus, each PUT updates the last 
record that was retrieved from the file. 
If some records do not require updating, a 
series of GET instructions can be issued 
without intervening PUT instructions. 
Therefore, it is not necessary to rewrite 
unchanged records. 


When blocked records are specified, PUT 
instructions do not transfer records to the 
file. Instead, each PUT indicates that the 
block is to be written after all the 
records in the block have been processed. 
When processing for the block is complete 
and a GET is issued to read the next block 
into main storage, that GET also writes the 
completed block back into the file in its 
previous location. If a PUT instruction is 
not issued for any record in the block, GET 
does not write the completed block. The 
ESETL macro instruction writes the last 
block processed, if necessary, before the 
end of file. The ESETL (end set limit) 
macro instruction ends the sequential mode 
initiated by the SETL macro. If blocked 
records are specified, ESETL writes the 
last block back if a PUT was issued. 


Note: If ADDRTR and/or RANSEQ are specified 
in the same DTF, ESFTL should be issued 
before issuing a READ or WRITE. Another 
SETL can be issued to restart sequential 


retrieval. 


SAN 
$BEN 


ENDFL Macro Phase 1 = 


{tA lH 


Objectives To validate IOAREAL address 
limits and DTFIS table limits. To reset 
error indicators in DTF table. To pad key 
field and write partially filled block if 
present. To write EOF record. To write TI 
(track index) entries, CI (cylinder index 
entry, and MI (master index) entry if 

To compute number of bytes used in 
the highest level index used. To write 
track index inactive entries if needed. 
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Entry: From the ENDFL macro expansion. 


Exits: To the second phase of the ENDFL 


macro, $$BENDFF. 


eaarede limits of IOAREAL and the DTFIS 
table via an SVC 26. It then resets error 
indicators in the DTF table for prime data 
area full, duplicate record, and sequence 
error. It checks for a partially filled 
blocked record. If one is present, it pads 
the key field with all X'F's and writes the 
partially filled block. 


A series of tests is made to determine 
the location of the last prime data record 
written. If the record was not the last 
record on the track, the last track full 
indicator is set oft. If the record was 
the last record on the track, the address 
in the ID field of IOAREAI is modified. If 
Space is available in the prime data area, 
the EOF record is written. If enough space 
is not available for the FOF record, this 
condition is posted at Filename.C in the 
DTF table. 


A test is made to determine if the last 
prime data track was full. If not, this 
routine writes the track index normal entry 
and the track index overflow entry. It 
also writes the cylinder index normal 
entry, and (if the master index is being 
used) the master index normal entry. If 
the last prime data track was full, and the 
last track index record number was not 0, 
this routine writes a cylinder index normal 
entry and a master index normal entry, if 
the master index is being used. 


If the last track index record number 
was zero, but the track was not 0, a 
cylinder index rormal entry is written. If 
the last track index track was 0, and the 
cylinder index record is not the last 
record on the track, a master index normal 
entry is written (if the master index is 
being used). Otherwise, pointers are set 
to the lower lirit of the peas index 
level being used. 


The routine then computes the total 
number of bytes used in the normal entries 
of the highest level index being used. 


When the total number of bytes in the 
highest level index has been determined, 
this phase formats the track index inactive 
entries and then tests to determine if 
there are more track index records on the 
cylinder. If so, track index inactive 
entries are written until there are no more 
records on the cylinder. A test is made 
for the device type. If the device is a 
2311, this routine continues to write track 
index inactive entries until the end of the 
prime data extent is reached, keeping a 
count of the number of cylinders containing 
track index inactive entries. For a DASD 
other than 2311, this phase does not format 
any more track index inactive entries. 


' containing inactive entries. 


When there are no more track index 
inactive entries to be written, the address 
of the DTF is saved for the next phase, and 
this phase exits to phase $$BENDFF. 


NDFL Macro, Phase 2 = 


harts DC-DD 

Objective: To write cylinder and master 
index inactive entries for any unused 
cylinders. To write cylinder index and 
master index dummy end entries. To write 
cylinder index and master index dumny 
chained entries. 


Entry: From the first pnare of the ENDFL 
macro, S$$BENDFL. 7 


: To the problem program via an SVC 


Sic 


xits 

1. 

Method: This transient routine first 
formats the cylinder index inactive entry. 
Using the count of the number of cylinders 
containing track index inactive entries, as 
determined by $$BENDFL, this routine writes 
cylinder index inactive entries for the 
unused cylinders. While the inactive 
entries are being written, a count is kept 
of the number of tracks containing cylinder 
index inactive entries. After the last 
cylinder index inactive entry is written, a 
cylinder index dummy end entry is written. 


The routine then tests to determine if 
the master index is being used. If it is, 
master index inactive entries are written 
using the count of cylinder index tracks 
One master 
index inactive entry is written for each 
track of cylinder index inactive entries. 
After the last master index inactive entry 
is written, this routine writes a master 
index dummy end entry. 


At the end of each master index or 
cylinder index cylinder, there is a master 
index or cylinder index dummy chained entry 
that points to the next master index or 
cylinder index cylinder. In cther words, 
the last record on the last track of a 
cylinder of cylinder index records points 
to record 0 on track 0 of the following 
cylinder if it is also in the cylinder 
index extent. After the dummy end entries 
have been written, this routine writes 
dummy chained entries, if any, for the 
cylinder index, and for the master index, 
if it is being used. 


When the dummy chained entries have been 


written, this phase exits to the problem 
program via an SVC 11. 
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oO, Phase 1 


Objective: To validate DIFIS table limits 
and IOAREAL limits. To test for prime data 
on data cell and disk devices. To 
determine the rumber of cylinders in the 
prime data extent, the maximum number of 
cylinder index entries in the cylinder 
index extent, ard to check if the cylinder 
index extent is too small. To check if the 
master index extent (if present) is too 
small. To build the basic CCW string for 
use by the* LOAD module and ENDFL 
transients. T0O move last prime data, track 
index, cylinder index, and master index 
record addresses to the DTF table. 


Entry: From the SETFL macro expansion. 


Exits: To the $$BSETFF for normal exit. To 
problem program (via SVC 11) if cylinder 
index or master index extents are too 


small. 


Method: This B-transient first validates 
the address limits of IOARFAL and the DTIFIS 
table. It then tests whether the prime 
data is on a data cell or disk device, and 
moves the address limits to the prime data 
control field of the DTF table. 


This phase then calculates the number of 
prime data extents minus one. The total 
number of cylinders minus one is then 
calculated. 


This phase next calculates the number of 
active records in the cylinder index, and 
compares this number with the total number 
of prime data cylinders minus 1. If the 
number of cylinders is greater than or 
equal to the number of cylinder index 
records, the cylinder index extent is too 
small and flags are set Ee indicate this 
conditicn. 


A test is then made to determine whether 
the master index is being used. If it is, 
the total number of cylinder index records 
referenced by the master index is used to 
determine the number of cylinder index 
cylinders referenced by the master index. 
One dummy record per cylinder index 
cylinder is subtracted from the total 
number of cylinder index records. The 
result of this subtraction (number of 
cylinder index records referenced by the 
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master index) is compared to the total 
number of prime data cylinders minus one. 
If the number of prime data cylinders is 
greater than or equal to the number of 
cylinder index records, the master index is 
too small, and flags are set to indicate 
this condition. If the master index is not 
being used, this check is bypassed. 


The phase then checks to determine if 
either the cylinder index or master index 
extent is too small. If so, this phase 
returns to the problem program via an SVC 
11. If the extents are large enough, the 
record number of the track index dummy 
record is calculated, and the logical 
transient proceeds to build the CCW string 
shown in Figure 36. 


When the CCW string has been completed, 
the seek/search address is set up. The 
lower limit address of the prime data area 
is moved to the seek/search address area, 
and a test is made to see if the file is to 
be extended. If so, the extension 
indicator in the DITF table is set on, and 
the address of the last prime data record 
is saved for $$BSETFF. LTIRA (last track 
index record address) is initialized to the 
address of the last track index overflow 
entry. A test is made to see whether the 
upper limit address of the prime data 
extent has been increased. If so, an 
indicator is set for $$BSETFF, and the old 
prime data upper limit is moved to the 
seek/search address area. The upper limit 
address is initialized with the new prime 
data upper limit. 


A test is then made to see if the last 
prime data track is full. If it is not 
full, the last two track index entries must 
be rewritten during the load operation 
(since the highest key on the prime data 
track increases when new records are 
written). Therefore, the LTIRA is 
decreased to point to the track index 
entries for the previous track. The LCIRA 
(last cylinder index record number) and the 
LMIRA (last master index record number) are 
also decreased by one. (LMIRA is only 
decreased if the master index is being 
used.) $$BSETFF is then fetched. 


If the last prime data track is full, 
and it is not the end of the cylinder, the 
LPDRA (last prime data record address) is 
increased to record zero on the next track. 
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Figure 36. 


A test is made to see whether the last 
track index entry address is the last 
record on the track index track. If so, 
the ITIRA is set to record zero on the next 
track. Then the LCIRA and the LMIRA are 
decreased by one, and $$BSETFF is fetched. 


If the last prime data track is full, 
and the cylinder is full, the LPDRA and the 
LTIRA are updated to the start of the next 
cylinder of the prime data extent. Since 
the last prime data cylinder is full, the 
last LCIRA is nct changed. If the last 
cylinder index track is not full, the LMIRA 
is decreased by one. If the last cylinder 
index track is full, LMIRA is not changed. 


When all processing has been completed, 
this phase exits to phase $$BSETFF to 
initialize the CCW chain and I/O areas. 


Objective: To initialize the CCW chain and. 
I/O areas required to write the last track 
index track in each cylinder of the prime 


CCW Chain Built by $$BSETFL to Write Prime Data Records 


data area and the COCR (cylinder overflow 
control record), if the cylinder overflow 
option has been specified in the DTFIS 
table. 


Entry: From the first phase of the SETFL 
macro, S$$BSETFL. | 


Exit: To the third phase of the SETFL 
macro, $$BSETFG. 


Method: This phase first gets the key 
length from the DTFIS table and stores it 
in the count fields associated with the 
write count, key and data CCWs . These 
CCWs are built to write up to 41 track 
index records with one EXCP. 


A track index dummy record is built in 
the user's ITOAREAL and the number of 
cylinder overflow tracks in each cylinder 
is calculated and saved in the COCR data 
field. This phase then determines the 
correct Write Count, Key and Data CCW to 
write the track index dummy record. When 
the correct CCW is found, the address of 
IOAREAL is moved to its data address field. 


A test is made to determine if the 
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cylinder overflow option has been 


specified. If it has, Record Zero (RO) in 
the track index contains a COCR. The COCR 
is found in the data area of RO. The COCR 


contains the address of the last overflow 
record on the cylinder and the number of 
tracks remaining in the cylinder overflow 
area. This phase initializes the COCR with 
the address of the first cylinder overflow 
track and the number of cylinder overflow 
tracks. 


It tests to determine if the track index 
records to be formatted are on track 0 of 
each cylinder. If so, the seek command 
code is changed to a NO-OP, the flag bits 
are set to indicate command chaining, the 
file protect indicator is reset and 
$$BSETFG is fetched for execution. All 
writing is done on track 0O with one EXCP. 


If the track index records are not on track: 


0, a test for DASD file protect is made. 

If the DASD file protect feature is not 
present, flag bits of the seek CCW are set 
to indicate command chaining, the file 
protect indicator is reset and $$BSETFG is 
fetched for execution. All writing is done 
with one EXCP. If the file protect feature 
is present, the file protect indicator is 
left on and $$BSETFG is fetched. All 
writing is done with two FYCPs. If the 
cylinder overflcw cption has not been 
specified, the file protect indicator is 


reset. All writing will be done with one 
EXCP. 

ISAM LOAD: SEIFL Macro, Phase 3 = 
S$BSETFG, Chart DH 


in each prime data cylinder. To write COCR 
data if the cylinder overflow option has 
been specified. 


macro, $$BSETFF. 


to phase 4 of the SETFL macro, $$BSETFH, 
via an SVC 2, or to phase 3A of the SETFL 
macro, £$BSETFI, if RPS is supported. 


checks to determine whether the file has 
been extended, but the prime. data area 
upper limit has remained the same. If so, 
no formatting is required, and a branch is 
taken to read the last prime data record. 
If the file is keing created or being 
extended with increased upper limit, this 
phase formats the last track index track in 
each prime data cylinder (1 track per EXCP 
through use of an extended CCW chain), and 
writes the COCR data for each cylinder if 
the cylinder overflow option is specified. 
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hase 3A 


the load function if RPS is supported, and 
to initialize the remaining DIF fields. 


Entry: From the third phase of the SETFL 
macro, $$BSETFG. : 


Exits To the problem program via an SVC 11 
or to phase 4 of the SETFL macro, $$BSETFH, 
via an SVC 2. 


Methods If the DTF is an RPS type DTF, the 
Load CCW chain is built in the DTF 
extension with embedded RPS CCWs. Then 
this phase tests to determine whether the 
file is being extended or created. If the 
file is being created, the seek/search 
address is set up, the count field of the 
IOAREAL is initialized with the address, 
key length and data length of the last 
prime data record. The CCB is initialized 
with the address of the CCW chain. 


If the file is being created, the block. 
position address is set with the current 
logical-record address. The logical record 
counter is saved in the DTF table, the CCB 
is initialized with the address of the CCW 
chain, and this phase exits to the problem 
program via an SVC 11. 

If the file is being extended, $#BSETFH 
is fetched via an SVC 2. 


ISAM LOAD: SETFL Macro, Phase 4 


SETFL 
SSBSETFH, Chart DJ 
Objective: For extension of file, to read 
the last prime data record so that keys may 
be compared by the ISMOD macro. 


Entry: From the third phase of the SETFL 
macro, $$BSETFG. 


Method: For extension of file, this phase 
reads the last prime data record (the 
address was saved by the first phase, 
$$BSETFL). This provides keys for a 
comparison in the load operation. If the 
records are blocked and the last block was 
not filled by a previous load operation, 
this phase finds the padded record and sets 
the block position address to load the next 
prime data record at the location of the 
padded record. If the records are blocked 
and the last block is full, this phase 


reads the last cylinder index entry to 


obtain the highest key of the load file and 
sets the block position address to load the 
next prime data record at the location of 
the data in IOAREAL. 
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ISAM LCAD: WRITE Macro, NEWKEY, Charts 


Objective: To ensure that keys are in 
ascending sequence. To write prime data 
record in correct location. To write track 
index entries, cylinder index entry and 
master index entry, if necessary. 


expansion. 


Exit: To problem program via return 
register 14. 


Method: This routine first tests switches 
in the DIF table to determine if the prime 
data area is full or if the cylinder/master 
index is too small. If either condition 
exists, this routine exits to the problem 
program via linkage register 14. A test is 
then made to determine if IOAREA2=YES is 
specified as an ISMOD macro parameter 
option. If IOAFFA2 is specified and the 
presence of two I/O areas is indicated in 
the DIF table to allow overlapping of I/0 
with processing while creating the file, 
this routine gets the addresses of IOAREAL 
and IOAREA2 and determines if the ENDFL 
macro Was issued. If it has been issued, a 
wait for I/O completion and a test for 
ERREXT=YES are made. If FRREYT is 
specified, additional error conditions can 
be returned to the problem program, thus 
giving the user greater flexibility in 
attempting to ccentinue processing. 


If IOAREA2 is nct specified or if the 
ENDFL macro was not issued, a test is made 
to determine if the current record is the 
first record in the file. If it is the 
first record in the file, a test for 
IOAREA2=YES is made. If IOAREA2 is 
specified and there are two I/O areas, the 
traffic bit in the CCB is turned on and the 
IOAREA2 address constant is relocated. If 
IOAREA2 is not specified or if the current 
record is not the first record in the file, 
the current key is moved to the I/O area 
and a test is made to determine if the 
previous key is lower than the current key. 
If the previous key is not lower, a test 
for duplicate keys is made. If the keys 
are equal, a duplicate record indicator is 
set at Filename.C. If the current key is 
lower than the previous key, an 
out-of-sequence indicator is set at 
Filename.C. Control then returns to the 
problem progran. 


If the previcus key is lower than the 
current key, the current key and data are 
moved to the I/O area, the prime data 
record count and logical record count are 
updated by 1 and a test is made to 
determine if this is the first logical 
record in the block. If it is the first 
logical record, the record number in the 
count field of the I/O area is updated. If 
IOAREA2 is specified, a test for a full 
block is made. If the block is not full, 
the logical record count and the block 


position address are saved and control 
returns to the problem program. 


If the block is full, the logical record 
count is reset to 0 and a test for 
IOAREA2=YES is made. If IOAREA2 is 
specified, the addresses of the two I/0 
areas are interchanged and saved in the DTF 
table. The I/O area data address is saved 
as the block position address, and a test 
for ERREYT=YES is made. If ERREXYT is 
specified, the record type in the parameter 
list is set to indicate data. A test for 
IOAREA2=YES is made. If IOAREA2 is 
specified and there are two I/O areas 
present, the prime data record ID is | 
updated again and a prime data record from 
the second I/O area is written. If IOAREA2 
is not specified, a prime data record from 
IOAREAL is written. » ; : 


biocked and unblocked records. 


A check is then made to determine if the 
data record was written on a shared track. 
If it was written on a shared track, and it 
was not the last record of a shared track, 
control returns to the problem program. If 
the record was the last on a shared track, 
a test for IOAREA2=YES is made. If IOAREA2. 
is specified, a wait for I/O completion is 
made. The track index normal entry is then 
initialized to indicate a shared track 
index entry. 


If the record was not written on a 
shared track and it was not the last record 
on the prime data track, control returns to 
the problem program. If the end of the 
prime data has been reached, a test for 
IOAREA2=YES is made. If IOAREA2 is 
specified, a wait for I/O completion is 
made and a test for ERREXT=YES is made. If 
ERREXT is specified, the record type in the 
parameter list is set to indicate track 
index. The track index normal and overflow 
entries are written and the last track 
index record address is saved. 


Tests are then made for end of cylinder. 
If the last prime data record written was 
not the next-to-last or last record on the 
cylinder, the current prime data track 
number is updated by 1 and control returns 
to the problem program. If the record was 
the next to last record in the cylinder, a 
test is made for the end of the prime data 
extent. If the end of the extent has not 
been reached, the prime data track number 
is increased and control returns to the 
problem program. If it is the end of the 
extent, the end-of-extent indicators in the 
DTF table are set and control returns to 
the problem program. — 


If the record was the last prime data 
record on the cylinder, a test for 
ERREXT=YES is made. If ERREXT is 
specified, the record type in the parameter 
list is set to indicate cylinder index. A 
cylinder index entry is then written and 
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the last cylinder record address is 
updated. If a master index is being used, 
a master index entry is written if: 


1. The cylinder index entry is the next to 
last track in the cylinder. 


2. The cylinder index is the last record 
on the track. Before the master index 
entry is written, a test for ERREXT=YES 
is made. If ERREXT is specified, the 
record type in the parameter list is 
set to indicate master index. 


Next, this routine tests for the end of the 
prime data volume. If end of volume has 
been reached, the extent sequence number is 
updated by 1 and the seek/search address is 
modified to the beginning address of the 
volume. If it is not the end of volume, 
the address in the seek/search area is 
updated, and the last track index record 
address and the address in the count field 
of the I/O area are modified. (This 
modification also occurs for end of prime 
data volume.) This routine then exits to 
the problem program via return register 14. 


ISAM ADD: 


Objectives: To add a record to an indexed 


sequential file, adjusting the indexes and 
other records as necessary. 


Entry: From the WAITF macro expansion. 


Exit: To the prcblem program via linkage 


register 14. 


ERREXT=YES. If ERREXT is specified, 
additional error conditions can be returned 
to the problem program, thus giving the 
user greater flexibility in attempting to 
continue processing. After waiting for the 
completion of the I/0 operation, this 
routine determines the type of add function 
to be performed. The three types of add 
functions are: 


e Normal add to the prime data area 
e Add to the overflow area 
e EOF add. 


Normal Add to the Prime Data Area: If a 
normal add to the prime data area is 
required, this rcutine determines if the 
record is to be added to the last prime 
data track. If it is and the last prime 
data track is full, the overflow record 
address is calculated, and EYCP is issued 
to search and read the prime data track to 
determine the pcint of insertion and a wait 
for I/O completion is made. Figures 37-58 
give a description of the channel program 
builder for the ADD function. If the 
addition is not on the last prime data 
track, the overflow record address is 
calculated and the prime data track is 
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searched to determine the point of 
insertion for the record to be added to the 
file. When an equal/high key is found 
during the search, the count and data 
fields of that location are read into a 
save area in the DTF table and IOAREAL 
respectively. 


A test is made to determine if the prime 
data in core option has been specified as 
an ISMOD macro parameter. If it has been 
specified, as many records as can fit into 
the I/O area specified in the DTFIS operand 
IOAREAL are read from the prime data track 
into main storage. The key of the record 
to be added is compared to the keys of the 
existing records in the I/O area. If a 
duplicate key is found, the condition is 
indicated to the user in the DTF table 
entry labeled Filename.c. If no duplicate 
key is found, the records are shifted in 
main storage leaving the record with the 
highest key remaining in the user's work 
area, WORKL. The other records are 
rewritten directly onto the track. Any 
remaining records on the track are then 
read into the I/O area. The process 
continues until the last record on the 
track is set up as an overflow record. 

When the last prime data record on the 
track has been rewritten, the new overflow 
record is written in the overflow area, the 
track index normal and overflow entries and 
the COCR are written and control returns to 
the problem program. 


If the prime data in core option has not 
been specified as an ISMOD macro parameter, 
a test for blocked records is made. If the 
file is unblocked, the record previously 
found on the search key equal/high is 
reread to get the key field. If it isa 
duplicate key, a switch is set on in the 
DTFIS table indicating a duplicate key has 
been sensed, and a return to the problem 
program is made. If there are no duplicate 
keys, the user's key and data are written 
from the work area, WORKL, onto the DASD 
file. The record in the I/O area, IOAREAL, 
replaces the user's record in the work 
area. The next record on the track 
replaces the one in the I/O area. This 
process is repeated until the end of track 
is reached. 


If the end-of-file (EOF) record is read 
during the process of shifting the records 
over one record position, this routine 
writes the last record over the EOF. record, 
and then writes a new EOF record (see 
Figures 39, 47, 48). 


If the file contains blocked records, 
this routine reads the block of records (or 
as many as fit in the I/O area if IOAREAL 
has been increased for reading and writing 
more than one record at a time) into 
IOAREAL. The key field within each logical 
record is analyzed to determine the correct 
position in which to insert the new record. 
If there is duplication of keys, a switch 
is set on in the DIFIS table and control 
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returns to the problem progran. 


If the key of the record to be inserted 
(contained in WORKL) is low, it is 
exchanged with the record presently in the 
block. This precedure continues with each 
succeeding record in the klock until the 
last record is roved into the work area. 
The key field of the DASD record is then 
updated to reflect the highest key in the 
block. If the size of IOAREAL has been 
increased, succeeding blocks in the I/0 
area are also updated. The block (or 
blocks) is then written back onto DASD. 
The remaining blccks on the track are 
Similarly precessed until the last logical 
record on the track is moved into WORKL. 
This record is then set up as an overflow 
record with the correct sequence-link field 
added and written in the overflow area. 
The sequence-link field for the new 
overflow record is taken from the track 
index overflow entry. The indexes are 
updated and control returns to the problem 
program for the next record to be added. 
If the overflow area is full, this 
information is indicated to the user in the 
DTF table entry labeled Filename.c. 


The track index normal entry key field 
is updated to the key of the new last 
record, the track index overflow entry data 
field is updated to the address of the new 
overflow entry (that entry has the lowest 
key for the overflcw for that track) and 
the COCR is updated. These records are 
written on the DASD file before control 
returns to the rroblem progran. 


If the last block in the prime data area 
is padded, the last record to be shifted is 
included in that block. If the EOF record 
is read during the process of shifting the 
records one reccrd positicn, the last 
record is written as a new block and a new 
EOF record is written before returning 
control to the rroblem prcgran. 


Add to the Overflow Area: This routine 
computes the new overflow record address 
and reads the overflow chain to get the 
address of the record with the next highest 
key. This address is stored in the 
sequence-link field of the new record. The 
new overflow record is then written in 
either the cylinder overflow area or 
independent overflow area. If these areas 
are full, this condition is indicated to 
the user in the DTIFIS takle entry labeled 
Filename.C. Each time an overflow record 
is added to the independent overflow area, 
an EOF record is written to maintain the 
integrity of the indexed sequential file 
(see Figure 49). The next overflow record 
followed by an EOF record overlays the 
previous EOF record. 


If the new overflow record has the 
lowest key in the overflow chain, its 
address is used to build a new track index 
overflow entry. The new overflow entry is 
then written on the DASD file (see Figure 


46) and control returns to the problem 
program. If a cylinder overflow condition 
occurs, the updated COCR (cylinder overflow 
control record) is written on DASD before 
control is returned to the problem program 
(see Figure 43). 


If the new overflow record does not have 
the lowest key, the sequence-link field of 
the record with the next lower key is 
updated to contain the address of the new 
overflow record. This overflow record is 
then rewritten on DASD and the COCR is 
updated. Control returns to the problem 
program. 


EOF Add: This routine first determines if 
the last prime data track is full. If the 
last prime data track is not full, the new 
record is inserted on it. If the file is 
blocked, the block is read and the new 
record is inserted. 


If the file is not blocked or if it is 
blocked and the last block is full, a new 
last prime data record address is stored 
and the new record is written at that 
address. A new EOF record is then written 
(see Figure 39). : 


If the last prime data track is full, 
the new record is inserted in the overflow 
area. The new overflow record address is 
computed and the record is written in the 
overflow area. 


If an overflow chain is present, the 
next lower record in the chain is found and 
the address of the new record is moved to 
the sequence- ~link field of the next PONCE 
record. : 


If no overflow chain is present, the 
address of the -new overflow record:is moved 
to the track index overflow entry. The 
track index overflow entry is then written 
with the new high key. The master index 
(if present) and the cylinder index are 
updated with the new high key. A test for 
the cylinder index in core option is then 
made. If it has not been specified, 
control is returned to the problem program. 
If the cylinder index in core option has 
been specified, the new key is inserted 
into the appropriate index in core entry 


before returning control to the problem 


progran. 


Objective: To perform the necessary 
initialization to add a record to a file. 


Entry: From the WRITE, NEWKEY macro 
expansion. 


Exit: To the problem program via aapede 
register 14. 
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the three parts of the DTFIS table, this 
routine gets the starting address of the 
highest level index, builds a CCW chain to 
search the highest level index (see Figure 
37) executes the channel program and tests 
for ERREXT=YES. If ERREXT is specified, 
additional error conditions can be returned 
to the problem program, thus giving the 
user greater flexibility in attempting to 
continue processing. The channel program 
is executed and a wait for I/O completion 
is made. The routine then tests the F code 
of the index level pointer to determine if 
the next search is of the cylinder or track 
index. The F ccde refers to the index 
level just searched. If it was the master 
index, the next search is on the cylinder 
index. See Figure 20 for a description of 
the F code. 


If the F code indicates a dummy chained 
entry, the search of the master, cylinder 
or track index continues. If the index 
level pointer did not indicate a dummy 
chained entry, a test for an inactive or 
dummy end entry is made. If an inactive or 
dummy end entry is indicated, the EOF add 
indicator is set on in the DTFIS table, a 
CCW chain is built to read the last track 
index entries (see Figure 50), the channel 
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program to bypass the last of the track 
index entries is executed, a wait for the 


I/O operation to be completed is made, and 


control returns to the problem progran. 
Processing continues with the record 
following the last key. 


Tf an inactive or dummy end entry is not 


indicated, a test for the presence of a 
master index is made. 
is not present, indicating the cylinder 
index was just searched, a search of the 
track index is performed, and a return to 
the problem program is made. 


If the master index is present, a test 


is made to determine if the cylinder index 


in-core option was specified as an ISMOD 
macro parameter. 
an EXCP is issued to search the cylinder 
index, followed by a wait for I/0 
completion, an EXCP to search the track 
index, a wait for I/O completion, and a 
return to the problem program. If the 
cylinder index in-core option was 
Specified, a search of the track index is 
performed, and a return to the problen 
program is made. When HOLD=YES is 


specified in the DIF, any held data tracks 


and index tracks are freed before control 
returns to the problem progran. 











If the master index 


If it was not specified, 


Se eo ——= ————— = re en <4 
{| CCW Builder | i | 
{Control Code!| CCW Built | Function | 
| -—---—--—--- ---—- | ----- - on nnn ot Sa a peas —| 
| 79€1 1X'69", &EKEYARG, CC and SLI, {Search key equal or high the master/ | 
| {Key Length |cylinder index. Key supplied by user in i 
| | ‘ [the DTFIS table. 
| | | | 
| OC6B }X¥'O8', Pointer to *+16, CC |TIC to *+16. | 
[ fand SLI, 5 | | 
| | | 
i D17B |X'1A', 2&§Filename.D+8, CC, {Read home address into work area for the | 
[ |SLI and SKIP, 5 |current track index normal entry count { 
| | {field in the DTFIS table. | 
| 7 | { | 
i 516C 1X¥'92', 2&Filename.D+8, CC jRead count (multiple track) into work | 
| jand SLI, 10 Jarea for the current track index normal | 
| | jentry count field in the DTFIS table. | 
| | | | 
| 7961 {X'69", &KEYARG, CC and {Search key equal or high the master/ | 
| jSII, Key Length {cylinder index. Key supplied by user in | 
( { {the DTFIS table. | 
| i | | | 
| O46B 1¥'08', Pointer to *=-16, CC {TIC to *-16. | 
| Jand SLI, 5 | | 
| | | | 
| 150C [X'06", 2&Filename.D+40, 00, {Read data (next 10-byte index level | 
{ {10 j|pointer) into work area for track index | 
{ | Jnormal entry data field in DTFIS table. | 
i sa cece snes Sno Sem sai ses sn euinn es eases Schnee on cep a msc i mn ee es ana a ci i i as‘ ei i mimi nin ee iam ce isis i i igs th ci i em ne is nino 
i-2 See notes 1 and 2 in Figure 58. 
Figure 37. Channel program builder for ADD -.-- CCW chain built to search master cylinder 
index. 
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cr" ee A EPS TARE EE RS OS A) a 


| CCW Builder | 
j|Contrel Code! | 








CCW Built 





| 
| Function 


ED SEED CLEP a EE CS EC A PEE ee 





ee 


| 

[ 

| 
{ 8C4B i 
| | Jusing the pointer (CCHHR) in the common { 
( | jseek/search area. | 
( l | | 
; 066B 1X'08", Pointer to *-8,CC {TIC to *-8. | 
| Jand SLI, 5 
i | | | 
| 106C {X'06', 2&Filename.D, CC and |Read data (COCR record) into the cylinder | 
| }SLI, 10 {overflow control record (COCR) area. | 
i i | | [ 
| 516C {X¥'92', 2&Filename.D+8, CC jRead count (multiple track) into work { 
{ jand SLI, 10 jarea for the current track index normal | 
| i Jentry count field in the DTFIS table. | 
[ | | | 
{ 7941 {X'69", EKEYARG, CC, |Search key equal or high the track index. | 
| {Key Length |Key supplied by user in the DTFIS table. ] 
l { | | [ 
O46B 1X'08', Pointer to *-16, CC {TIC to *-16. { 
| jand SLI, 5 | | 
{ [ | i 
| 156C 1X'O06", 26Filename.D+t40, CC {Read data (next 10-byte pointer to prime | 
| jand SLI, 10 jdata record) into work area for track index| 
| | jnormal entry data field in DTFIS table. | 
{ | | | 
j 526C {X¥'92*, 2§Filename.D+16, CC jRead count (multiple track) into work | 
| jand SLI, 10 jarea for current track index overflow entry| 
| | jcount field in DTFIS table. | 
( { | . [ 
| 1D0C 1X'06', 2&Filename.wW, 00 {Read data (10-byte overflow entry) into | 
( i 


| 10 


en ee ED OED EES SED ED RS GREENS S-EE GE eREEy GMA e 


|random/sequential retrieval work area. 
cance easanenrmn anne i's ert aie eal 

















i-2 See notes 1 and 2 in Figure 58. 


Figure 38. Channel program builder for ADD -- CCW chain built to search track index. 


ED A ES ED AY TAD RTD AT eA A LS CL ITA LD IED AAT LT LEAL IED, TTD LAME 


SS SS ee ee SS SS 
{ CCW Builder | | | 
{Control Code! CCW Built | Function | 
| 








}X'°31", 2&Filename.S+3, CC, 5 |Search identifier equal for the last prime | 








{|SLI, 10 jlocated in current overflow record count 
| . [field in DTFIS table. 


| 8C4B 

i | jdata record address using pointer, CCHHR, | 
l | Jin common seek/search area in DTFIS table. | 
i | { l 
| O66B {X'O8', Pointer to *-8, CC {TIC to *-8. | 
| jJand SLI, 5 | | 
[ { | [ 
| 342¢ 1x°10', 2&Filename.D+t+32, |Write count, key and data of EOF record | 
i [ 
I | 














ee Re ee ae Ee Se ne ee ESTES Set eat eee ae A ee ER ee a eT 
1-2 See notes 1 and 2 in Figure 58. 
Figure 39. Channel program builder for ADD -- CCW chain built to write new EOF record. 
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a a pe i 

{CCW Builder | i | 

{Control Code?!| CCW Built | Function | 

se i ici cca i ie ca is. Sc i mms i iia SATA AS Tag ia a renee 
8C 4B X¥°31', 26Filename.S+3, CC, 5 |Search identifier equal the prime data 


| 

I Jtrack using pointer, CCHHR, in common 
| jseek/search area in DTFIS table. 

| 








| | 
| | 
| | 
[ | 
| 066B {X'08", Pointer to *-8, CC {TIC to *-8. | 
| jand SLI, 5 | | 
| | | | 
| 436C }xX°12", 26Filename.D+24, CC  |Read count field for current prime data | 
| Jand SLI, 10 | |record. | 
[ | ( | 
( 7941 |X'69", &SKEYARG, CC, Key |Search key equal or high the prime data | 
( |Length Jtrack. Key supplied by user in DTFIS | 
| ( {table. | 
| I I i 
( O4EB 1X'0O8", Pointer to *-16, CC |TIC to *-16. | 
| jand SLI, 5 | | 
i | | | 
| 1B02 1X"'06', Address of IOAREAL+8 |Read data (prime data block) into | 
| |+KEYLEN, 00, Block Size {IOAREAL+8+Key Length. | 
a i cs a cc as i ei cen cadets ibe he ns ein eis ims irs ie ae tie een image an scouts cin casi isn cisco meas nics ns ems em peered | 








i-2 See notes 1 and 2 in Figure 58. 


Figure 40. Charnel program builder for ADD -- CCW chain built to find prime data 
record. 
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ae s 

| CCW Builder | ] 

|Control Code!| CCW Built | Function 
8C4B X'*31', 26Filename.S+3, Cc, 5 


{Search identifier equal the track index 
{using pointer, CCHHR, in common seek/ 
jsearch address area in DTFIS table. 

| . 


|Rewrite COCR located in cylinder overflow 
[control record work area in DTFIS table. 


{Search identifier equal (multiple track) 
{for the pointer, CCHHR, in the normal 


{Rewrite track index normal entry located 


}Search identifier equal (multiple track) 
Ifor the pointer, CCHHR, in the overflow 


|Rewrite overflow entry located in 
|random/sequential retrieval work area, 


{ 
{|Search identifier equal for the pointer, 
{CCHHR, in the overflow entry count field. 


| 
{Read data to verify record just written. 
JInformation is not transferred to main 


{ 
( 
| 
| 066B 1x'08', Pointer to *-8, CC {TIC to *-8. 
{ jand SLI, 5 | 
| | 
( BO6C 1X'O5S', 2&6Filename.D, CC and 
( {SLI, 10 
[ | 
] E14B IX¥'*B1*, 26Filename. D+t8, 
| ICC... 5 | 
| | jentry count field. 
i | | 
{ 066B 1X'O08"', Pointer to *-8, CC {TIC to *-8. 
| jand SLI, 5 | 
( | | 
| 2A45 IX'OD', Address of 
| | IOAREAL+8, CC, jat TOAREAL+t8. 
[ | Key Length + 10 | 
| ; | 
{ E24B 1X'B1', 2&Filename.D+16, CC, 5 
| | 
[ | Jentry count field. 
| , | { 
| O6€B 1x'O8"', Pointer to *-8, CC {TIC to *-8. 
[ land SLI, 5 
| { | 
| BDCC 1X'O5', 2&Filename.W, CC and 
{ {DC, 10 
| i 
{ 824B {|X¥'31', 2&6Filename.D+16, 
i (CG,. 5 
{ | | 
ft 066B {X¥'08*, Pointer to *-8, CC {TIC to *-8. 
I Jand SLI, 5 | 
i | 
| 1D3C 1X'06', 2&Filename.W, SLI and 
| |SKIP, 10 
| |storage. 
| ea eee a ai i amis ecu ec ens gh Sen es cei ei 











L 


i-2 See notes 1 and 2 in Figure 58. 


Figure 41. Channel program builder for ADD -- CCW chain built to 
entry. 


rewrite track index 
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8 


{| CCW Builder 





i e 
{Control Code!| CCW Built 





[ 
| 
3 | 
| 8C4UB |X°13', 2€Filename.S+3, CC, 5 |Search identifier equal for RO using { 
| | |pointer, CCHHR, in common seek/search area | 
| | {in DTFIS table. 
| | | | 
| O66B 1X'08", Pointer to *-8, CC {TIC to *-8. | 
| jand SLI, 5 [ | 
| | | : | 
| BO6C .{¥'05"', 26Filename.D, CC and |Write data (updated COCR) from the { 
{ |SLI, 10 jcylinder overflow control record (COCR) | 
[ | jarea in the DTFIS table. | 
l | : | 
] E14B |X'B1', 2&Filename.D+8, CC, 5 |Search identifier equal (multiple track) [ 
| [ {the track index using the pointer, CCHHR, | 
i | jin the work area for the current track { 
| | {index normal entry count field. [ 
| i | | 
] O66B {X'O8', Pointer to *-8, CC {TIC to *-8. | 
i Jand SLI, 5 i | 
| | | | 
| BDCC {X'O5", 2&8Filename.W, CC and |Write data (track index overflow entry) | 
| }rc, 10 jfrom the random/sequential retrieval work | 
| | |area. | 
| | | | 
{ 814B {X'31', 2&Filename.D+8, CC, 5 {Search identifier equal the track index | 
| | Jusing the pointer, CCHHR, in the work area | 
| | }for the current track index normal entry | 
| | [count field. 
| | | l 
| 066B 1¥'08', Pointer to *-8, CC {TIC to *-8. 
| fand SLI, 5 | 
| | | 
| 1D3C 1X¥'O06', 2&Filename.W, SLI {Read data to verify record just written. { 
[ Jand SKIP, 10 |Information is not transferred to main | 
| | jstorage. | 
as es Ba ee et ee i ee a Se a a es a a ae aria ae So ia ym en ns na a at is nn it ta in eines ween ni ites ai Sl abies iach 
a-2 See notes 1 and 2 in Figure 58. 
Figure 42. Channel program builder for ADD -- CCW chain built to write track index 
entry. 
re pe ee pe aes ee ene ge eee Se Se Mg ene ee a ee EG es LO ee eg a ge ee ee ees ee ee ee eM 


| CCW Builder | 
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Seti tie’ 
i 
| Function 

















ed 



































| 
{Control Code! CCW Built LY | Function | 
SS SSS ee ere ore eee = a a | 
| @C4B |X'31', 26Filename.S+3, CC, 5 |Search identifier equal for RO using | 
i | |pointer, CCHHR, in common seek/search area | 
| | Jin DTFIS table. | 
| | | | 
| O066B {X'O08', Pointer to *-8, CC {TIC to *-8. | 
| jand SLI, 5 j | 
| | | | 
| BO2C 1X¥'O5', 2&6Filename.D, SLI, 10 [Write data (updated COCR) from the cylinder| 
| | Joverflow control record area in the DTFIS | 
{ | |table. | 
eon a as Ear te i ac as ae cea ts as es a al le tac seal 

i-2 See notes 1 and 2 in Figure 58. 

Figure 43. Channel program builder for ADD -- CCW chain built to write COCR. 
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Br Ee a ea ee Se yee apes ee Mae ee eee Wee ee oa gr Oe Say eee Wenn ee aL Oe pd On ge a ee ea ie ee ee ee eT —TZ 

ICCW Builder jf | 

{Control Code] CCW Built | Function 

SS SS = SSS = ee nee ee ee 

] 8C4B }X¥'31', 28Filename.S+3, CC, 5 |Search identifier equal using pointer, 

{ | | {|CCHHR, in common seek/search area in DTFIS 

{ [ | |table. 

{ | | 

| O66B {X¥'O8', Pointer to *-8, CC {TIC to *-8. 

| {and SLI, 5 { 

| | | | 

{ AAOQ7 [X"OE', Address of IOAREAL+8, |Read key and data of previously low 

{ |00, Key Length + Record Joverflow record into TOAREAL+t8. 

i {length + 10 | | | | 

Ch i ere wes es mes ea ee ee sein en ei Sa com i <a ir ain sci nc ibm sea ms i i St ncn cei ts nn ac eae itis iene cammecmes tans 
i-2 See notes 1 and 2 in Figure 58. 

Figure 44. Channel program builder for ADD -- CCW chain built to read previous overflow 

reccrd. | . 

Ge er eee ape erg ee cy oP ae ee ETT, Pe RT aE SS ap ee a nae ge ee ee ep ne ee ee peer eee eee a er eee ee ee ee ene 

{CCW Builder | | . 1 

{Control Code! | - CCW Built | Function | 

| -—--—--------—++ -------__-- on nen wre ee nm | 

i 8C4B 1X¥'31"', 2&Filename.S+3, cc, 5 |Search identifier equal using pointer, [ 

| | : {|CCHHR, in common seek/search area in DTFIS | 

| | {table. | 4 

| { : | [ 

| OE6B. .1%'08', Pointer to *-8, CC {TIC to ¥*-8. i 

| land SLI, 5 | | 

i a | | 

[ 2A47 {X¥'OD', Address of IOAREAL+8, |Write key and data of previously low { 

| [cC, Key Length + Record joverflow record located at IOAREAL+8. | 

| {length + 10 | | 

| [ | ) | 

| 8C4UB {x¥'31', 2&Filename.S+3, CC, 5 |Search identifier equal using pointer, { 

{ | {|CCHHR, in common seek/search area in DTFIS | 

| | { | i 

i 066B {X¥'O08", Pointer to *-8, CC {TIC to *-8. | 

[and SLI, 5 | | 

i i i [ 

f AA37 [X'OE*, Address of IOAREAL+8, |Read key and data to verify record just ! 

| [SLI and SKIP, Key Length + Jwritten. Information is not transferred | 

| {Record Length + 10 jto main storage. { 

ca a ca a cee ec ces oe a re ce, opens cous cin snc ous aninsoensemmo iowa nn | 
i-2 See notes 1 and 2 in Figure 58. 


Figure 45. Channel program builder for ADD -- CCW chain built to write previous 
a overflow record. 
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pena 
| CCW Builder | | | 
|Contrcl Code! CCW Built ; Function | 
a a: 
| | | 
| 8C4B }¥'31', 26Filename.S+3, CC, 5 |Search identifier equal for last overflow | 
j | |record address using pointer, CCHHR, in | 
| | {common seek/search area in DTFIS table. | 
| | , | | 
| O€6EB 1X'08", Pointer to *-8, CC {TIC to *-8. | 
| Jand SLI, 5 | | 
| | i | 
| 37C9 {X'1D', Address of IOAREAL, {Write count, key and data of new overflow | 
\ jcc and DC, Key Length + jrecord located at IOAREAL. | 
| j|Record Length + 18 | | 
( | 
| 8C 4B }X'31', 26Filename.S+3, CC, 5 |Search identifier equal for last overflow | 
| | | | |record address using pointer, CCHHR, in | 
| | {common seek/search area in DTFIS table. | 
i | | | 
| 066B i1X'O08" Pointer to *-8, CC {TIC to ¥*-8. | 
| jand SLI, 5 | | 
i | | | 
| C7 39 {X*1E*, Address of IOAREAL, {Read count, key and data to verify record | 
| {SLI and SKIP, Key Length + {record just written. Information is not | 
{ [Record Length + 18 jtransferred to main storage. { 
a i ais esd is ie i an aes a Sn eee cee mi se rca cmc i a a cs cen snes nis ces ene i in ae a nce is cen ies ein alc sl nc oan nips clo mem usaninedl 
i-~2 See notes 1 and 2 in Figure 58. 
Figure 46. Channel program builder for ADD -- CCW chain built to write new overflow 
record. 
a a a ea | 
{CCW Builder | i | 
{Control Code! | CCW Built | Function | 
| ———-—— rn nnn nnn ee ncaa macnn 
| 8C4UB }X°31"', 2&Filename.St3, CC, 5 |Search identifier equal for present EOF | 
i | |record address minus 1 using pointer, | 
{ | |CCHHR, in common seek/search area in DTFIS | 
| | jtable.: | 
| | | | 
| Q066B {X'O8", Pointer to *-8, CC {TIC to *-8. | 
| jand SLI, 5 | | 
i | | | | 
| 37C8 |X'1D", Address of IOAREAL, {Write count key and data of new record | 
| |CC and DC, Key Length + Jto be added located at IOAREAL. i 
| | Block Size + 8 i | 
i i | 
| 8C4B {X'31", 26Filename.S+3, CC, 5 |Search identifier equal for present EOF | 
| | |record address minus 1 using pointer CCHAHR, | 
| | jin common seek/search area in DIFIS table. | 
i | | | 
| O66B {X'O8*, Pointer to *-8, CC {TIC to *-8. | 
{ Jand SLI, 5 
( | | 
( C738 |X'1E", Address of IOAREAL, |Read count, key and data to verify record | 
| |SLI and SKIP, Key Length + Jjust written. Information is not | 
| {Block Size + 8 {transferred to main storage. | 
| aaen 


i-2 See notes 1 and 2 in Figure 58. 


Figure 47. Channel program builder for ADD -- CCW chain built to write over EOF record 
(blccked records). 


134 LIccCS Volume 3 DAM and ISAM 


Licensed Program - Property of IBM 


Co eee 


| CCW Builder {| 


{|Contrcl Code? 


8C4B 


066B 
37C8 
8C 4B 


066B 


C738 


poa--------------------- 


Figure 48 





CCW Built 








1X'31', 26Filename.S+3, CC, 5 


1x'O8", Pointer to *=-8, CC 
Jand SLI, 5 


| 

{X*'1D"', Address of IOAREAL, 
{cc and DC, Key Length + 
{Block Size + 8 


| 

{x'31", 2&6Filename.S+t+3, CC, 
| 

| 

| 

| 

{X'08', Pointer to *-8, CC 
jand SLI, 5 

| 

|X'1E", Address of IOAREAL, 


|SLI and SKIP, Key Length + 
|Block Size + 8 


i-2 See notes 1 and 2 in Figure 58. 








|Search 
{record 
| CCHHR, 
{table. 
[ 

{TIC to 
| 

eo 

| Write 
{to be 
| 

[ 
|Search 
|record 
|CCHHR, 
jtable. 
| 

j|TIC to 
| 

| 


{Read count, key and data to verify record 


[just w 








{transferred to main storage. 








Function 





identifier equal for present EOF 
address minus 1 using pointer, 








in common seek/search area in DTFIS 


*-8. 


count, key and data of new record 
added, located at IOAREAL. 


identifier equal for present EOF 
address minus 1 using pointer, 


in common seek/search area in DTFIS 


*-8. 


ritten. Information is not 





| 
| 


- Channel program builder for ADD -- CCW chain built to write over EOF record 
(unklocked records). 


Ce ne ee 
| 


CCW Bui 


|Control Code! | 


066B 


| 
| 
| 
| 
{ 
i 37AC 
| 


Cs is eee 


1-2 See notes 1 and 2 in Figure 58. 


Figure 49 


8C 4B 


lder 





{ 
CCW Built 








jX¥'31', 2&Filename.S+3, CC, 5 


1X¥'O8*, Pointer to *-8, CC 
jand SLI, 5 


| 
{X'1D*', Address of IOAREAL, 
{CC and SLI, 10 











|Search 
| record 
|CCHHR, 
J table. 


| 
{TIC to 
| 


{Write count, key and data of EOF record 
[located at IOAREAL. 








Function 








identifier equal for present EOF 
address minus one using pointer, 





in common seek/search area in DTFIS 


*-8. 


- Channel program builder for ADD -- CCW chain built to write EOF in 
independent overflow area. 
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an e 
{| CCW Builder | 


j|Control Code! CCW Built 


| 8C 4B |X'31t, 2§Filename.S+3, CC, 5 

{ | 3 

l { 

| | 

| O66B {X¥'O08*, Pointer to *-8, CC 

| Jand SLI, 5 

| | 

] 106C 1X'O06", 2&Filename.D, CC and 

| {|SLI, 10 

( | 

{ E14B IX¥'B1', 26Filename.D+8, CC, 5 

| ( 

| 1 

| | 

| | 

( | 

| 066B 1X'08', Pointer to *-8, CC 

{ jand SLI, 5 

I | 

| 154C 1C'O06', 2&6Filename.D+40, CC, 

i {10 

| | 

i | 

| 526C (xX¥'92', 2&6Filename. D+16, CC 

| jand SLI, 10 

| | 

| | 

| | 

| 1D0C {X¥'06', Filename.W, 00, 10 

t sasscrsindesist ancien senile 
1-2 See notes 1 and 2 in Figure 58. 


Figure 50. Channel program 


entry. 


iICCW Builder | 








}00, Key Length + Record 
{Length + 10 


[ eran SS ES CES GREED CSN ERD CEES AI ESD CINE UTC ARN AED ERATE IED COED 


i~2 See notes 1 and 2 in. Figure 58. 


{Control Code!| CCW Built 

(-——==+— [a a 
| 8C4B {¥'31', 2&Filename.S+3, CC, 5 
{ | 

[ | 

{ l 

| O€6B 1X'O8*', Pointer to *-8, CC 

| jand SLI, 5 

i { 

| AAQ7 |X"'OE', Address of IOAREAL+t8, 
i 

{ 


Figure 51.. 
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I 

| Function 
|Search identifier equal the track index 
Jusing the pointer (CCHHR) in the common 
jseek/search area. 


| 
1TIC to *-8. 
| 


| 
{Read data (COCR record) into the cylinder 
joverflow control record (COCR) area. 


| 

{Search identifier equal (multiple track) 
|the track index for the last normal entry 
Jusing information in the work area for the 
jcurrent track index normal entry count 

| field. 

[ 

{|TIC to *-8. 

| 


I 
|Read data (last track index normal entry) 


Jinto work area for track index normal entry 
jdata field. 


I 

{Read count (multiple-track) of last track 
Jindex overflow entry into work area for the 
Jcurrent track index overflow entry count 
|field. 

I 

{Read data (last track index overflow entry) | 


jinto random/sequential retrieval work area. | 
Sea 

















builder for ADD -- CCW chain built to read last track index 


se cette atta 
| | 
{ Function | 

ce SRE am semanas uno-anroumannsei { 
equal the overflow chain | 
(CCHHR) in the common t 





|Search identifier 
Jusing the pointer 
|seek/search area. 
| 

JTIC to *-8. 

| 





| 
|Read key and data of overflow record 
Jinto ITOAREAL+t8. 


| 


+o read overflow record. 
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i eee 
{CCW Builder | | | 
{Control Code!] CCW Built { Function i 
i is ein sar ecee ces a er i ce te etn ene ee can aaa fl en me ee ce pace ene ieee CD SPS OTD cee wh SEE SP { 

8C4B jx'3t, 2éFilename.St3, cc, 5 |Search identifier equal for last prime data| 


to {record address using pointer, CCHHR, in 
| {common seek/search area in DTFIS table. 


Jand SLI, 5 | 
| | 
1B02. _|¥'0O6', Address of IOAREAL+t {Read block into IOAREAL + 8 + KEYLEN. 


| 

| 

l 

{ | | 

| O66B 1¥'O8", Pointer to *-8, CC |TIC to ¥*-8. 
{ 

| 

{ 

[ 


J|8+KEYLEN, 00, Block Size | | 


i-2 See notes 1 and 2 in Figure 58. 


7 





Figure 52. Channel program builder for ADD -- CCW chain built to read last prime data 

















reccrd. 
eae Spat are eh Bea Te CRON ee eS a PE, TG aT ge a eT EE ee eet eee per gee ee oe 
ICCW Builder | { | 
}Control Code!?|{ 7 CCW Built { | Function | 
| ——-- nn nnn nr Se nen | 
| &C 4B {X'31', 2&Filename.S+3, CC, 3 {Search identifier equal for last prime data| 
{ | jrecord address using pointer, CCHHR, in | 
| { {common seek/search area in DTFIS table. | 
| | | | 
| O66B {X'O08', Pointer to *-8, CC {TIC to *-8. | 
| jand SLI, 5 | | 
; | | | 
i 2AC6 {X'OD', Address of IOAREAL+8, |Write key and data of prime data block ; 
| }CC and DC, Key Length + J|located at IOAREAL+8. | 
| | Flock Size | | : | 
I I | l 
| 8C4B [X¥'31', 2&Filename.S+3, CC, 5 {Search identifier equal for last prime data 
[ | {record address using pointer, CCHHR, in | 
i | jcommon seek/search area in DTFIS table. | 
I | | | 
| O66B {X¥'O8', Pointer to *-8, CC [TIC to *-8. | 
| Jand SLI, 5 | 
i | [ | 
| AA36 1X"OE', Address of IOAREALt+8, |Read key and data to verify record just | 
| |SLI and SKIP, Key Length + {written. Information is not transferred | 
| ; | Block Size jto main storage. | 


i-2 See notes 1 and 2 in Figure 58. 


Figure 53. Channel program builder for ADD -- CCW chain built to write block of prime 
data records and verify. 
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rg ee eg ee ema ee ea pet fae ee ee i en ee ee ag eR ae Bete ee eee St et ee ee gd age ee ge 
{| CCW Builder | | | 
{Control Code!| CCW Built ] Function , | 
| me ce ene re me afc cen amen et aren ant eee Yt is asmicisini Ee Ne 
| 8C 4B X*31", 26Filename.S+3, CC, 5 |Search identifier equal for last track 


| 
{ Jindex address using pointer, CCHHR, in 
| jcommon seek/search area in‘DTFIS table. 


| | 
066B |X¥'08", Pointer to *-8, CC {TIC to *-8. 


Jand SLI, 5 | 
| | 
2A45 (X"'OD', Address of IOAREAL+8, |Write key and data of track index 
|CC, Key Length + 10 Jnormal entry located at IOAREAL+8. 
| | 
E24B 'B1t, 26Filename.D+16, CC, 5 |Search identifier equal (multiple track) 


Jentry using the count for the current 


| X 

| jthe track index for the last over flow 
| ‘ 

| Jjtrack index overflow entry.» 

| 


{ 
[ 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
| 
| | 
| 

Jand SLI, 5 | | 
| 

| 

| 

| 

| 

| 

i 

i 

[ 

| 

| 

| 

| 

{ 

| 


066B. ic'08*, Pointer to *-8, CC {TIC to *-8. 
| | 
2845 1X'OD', Address of WORKL, CC, {Write key and data of track index 
{Key Length + 10 Joverflow entry located at WORKL. 
| 
824B "31", 2&Filename.D+16, CC, 5 |Search identifier equal the track index 


{for the last overflow entry using the 


Ps 
e 

| jcount for the current track index overflow 
| 

| 


Jentry. 
I 
066B 1¥'O08", Pointer to *-8, CC |TIC to *-8. 
jand SLI, 5 [ 
| | 
A835 |X"OE*, Address of WORKL, [Read key and data to verify record just 


{SLI and SKIP, Key Length + 10 |written. Information is not transferred 
{ | {to main storage. 


a Rr aa a aaa 


























—— ee in es a i-inr ci ie nia cen mn onesie ines cnn t-te seme esis ‘eee Sens —— ii a ti i el 
i-2 See notes 1 and 2 in Figure 58. 
Figure 54. Channel program builder for ADD -- CCW chain built to write track index 
entry. 
a ee re ae ea eee ee ae ge eee en ey ye ee ae ee Te te ee nT ene ee ee 
}CCW Builder | | [ 
[Control Code?| CCW Built | Function | 
ae a isc an ec tel la sc gc a ca a a a a | 
| 8C 4B [X'°31', 2&Filename.S+3, CC, 5 |Search identifier equal the master/ | 
| | jcylinder index using the pointer, CCHHR, in| 
| | {the common seek/search area in the DTFIS | 
l | {table. 
{ [ | | 
| 066B 1X¥'08", Pointer to *-8, CC {TIC to *-8. | 
Jand SLI, 5 
[ | 
| 150¢ 1X'06", 26Filename.D+t40, {Read data (index entry) into work area { 
| 100, 10 |for track index normal entry data field. | 
Ci icine iene emenieemanounans a a a cia ee ee a is emi xe i anh cite ei aa asc ins ean ne es inns iss a cic ean enivmae 














i-2 See notes 1 and 2 in Figure 58. 


Figure 55. Channel program builder for ADD -- CCW chain built to read index entry. 


138 LIOCS Volume 3 DAM and ISAM 





Licensed Program - Property of IBM 









































SS — 
| CCW Builder’! | ] | 
iControl Code!?| CCW Built | Function | 
St as St ee ne SURE ns oP ae i 
{ 8C4B }X'31', 26Filename.S+3, CC, 5 |Search identifier equal the master/ | 
| { jcylinder index using pointer, CCHHR, in ; 
{ | |common seek/search area in DTFIS table. | 
[ | l | 
| 066B {X'O08', Pointer to *-8, CC {TIC to *-8. | 
| jand SLI, 5 | | 
i | | | 
| 2045. iX'OD', Address of IOAREAL+8, |Write key and data of master/cylinder | 
{ }cC, Key Length + 10 Jindex entry located at IOAREAL+8. | 
( [ | | 
| 8C4B 1X'31', 26Filename.S+3, CC, 5 |Search identifier equal the master/ | 
{ | |cylinder index using pointer, CCHHR, in { 
| | |common seek/search area in DTFIS table. | 
i | | | 
| AA35 |X'OE', Address of IOAREAL+8, {Read key and data to verify record just | 
| {SLI and SKIP, Key Length Jwritten. No information is transferred | 
{ {+ 10 jto main storage. | 
| ee — ss i sci ah ui pica it Sm ecm mui es em i i deanna nisin ie aenerbinanaaaie <amn aia Geen cine cnacasemiecsan asian cin ae | 
i-2 See notes 1 and 2 in Figure 58. 
Figure 56. Channel program builder for ADD -- CCW chain built to write index entry. 
a a hae anne 
{CCW Builder | | [ 
[Control Code! CCW Built | Function | 
= =| | 
| 8C 4B }X'31', 26Filename.S+3, CC, 5 |Search identifier equal the track index | 
| | Jusing the pointer, CCHHR, in the common | 
| | |seek/search area in the DTFIS table. | 
l : | : [ | 
j 066B 1X'08*, Pointer to *-8, CC {TIC to *-8. | 
| jand SLI, 5 | ] 
[ | ; [ 
f BO6C {X'O5', 2&Filename.D, CC {Write data (COCR) from the cylinder | 
| Jand SLI, 10 joverflow control record work area in DTFIS | 
; | | - jtable. | 
[ i i | 
| E24B IX'B1", 2&Filename.D+t16, |Search identifier equal (multiple-track) | 
| jcc, 5. Jthe track index using the pointer, CCHHR, | 
| | jin the work area for current track index { 
| | | joverflow entry count field. | 
i | I | 
| O6€B 1X'08*, Pointer to *-8, | TIC to *-8. | 
| {CC and SLI, 5 | | 
| | | : [ 
| AA35 1X"OE', Address of IOAREAL+8, |Read key and data to verify record just | 
| {SLI and SKIP, Key Length jwritten. Information is not transferred { 
[ {+ 10 | jto main storage. [ 
Ws se etree si su Sch is mea sce in uu ens Gnu eres esses Gus cine i i ns i esos Ses ccm Sens mers Seimei sin ce ssn cn ei eustcuiavema css oe ‘eaetamiaincall 
i-2 See notes 1 and 2 in Figure 58. 
Figure 57. Channel program builder for ADD -- CCW chain built to write track index 
overflow entry. 
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c= EYE TES ERD AY CES ED APES EMER ED em CORED CD CES SE ED CC NEY CER eee SEEN TES EE CAD CRS PD OS ATTEND CRS ANS RALD CER TRALEE CS NY TINTED ATED SED ATLAS CALLED TPE RG ACTED CLL 


| | : 
|The first character of the control code re 


|The second character of the control code references a data area at IJHAHRAA. 


{|The third character of the control code re 
| 


0 X'OO! 
2 x'20° 
3 x" 308 
u | x'4or 
6 ¥*' 608 
7 x¥'70° 
A X*AO!? 
C X¥'cor 


{The fourth character of the control code r 
{| IJHCRESZ. | 


{ 
|&Filename = DTF name supplied by user. 


|&6Filename.X = X¥ is suffix supplied by DTFI 
| en 








Figure 58. Channel program builder for ADD 


SSBINDEX Read Cylinder Index Into Storage, 
Charts FA-FB 

Objective: To read all or part of the 
cylinder index into main storage. 


cylinder index entries that can be read 
into main storage at one time. Each 
cylinder index entry consists of a key area 
and a data area. The key area contains the 
highest key asscciated with the cylinder, 
and its length is the same as that 
specified for lcgical data records in the 
DTFIS entry KEYIEN. The data area is ten 
bytes leng and contains the pointer to the 
track index for that cylinder. See Figure 
20 for the format of this 10-byte pointer. 
When this phase reads the cylinder index 
entry into main storage, only six bytes of 
the 10-byte pointer are retained. The last 
four bytes of the pointer to the track 
index are the same for all entries in the 
cylinder index. Therefore, only the first 
six bytes of the pointer are required for 
processing. 


If it is the first time through this 
B-transient phase, the key of the first 
core index entry is set to 0. If it is not 
the first time through this phase, the key 
of highest entry minus 1 that was 
previously read into main storage is moved 
to the key area of the first core index 
entry. A test is made to determine if the 


index skip opticn was specified in the DTF 


entry. If the index skip option was 
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| 
| 
J 


ce 


ferences an operation code at IJHCSTRI. 


ferences the following informations: 


End of CCW Chain 

SLI (Suppress Length Indicator) 

SLI and. SKIP (Suppress Data Transfer) 
cc (Command Chaining) 

cc and SLI 

CC, SLI, and SKIP 

SLI and DC (Data Chaining) 

CC and DC 


eferences a byte count (length) field at 


S for unique DTF labels. 








ED SRS SRR REO GEEASE ESSE SLOPE 


-- notes. 


specified, any cylinder index entries 
preceding the one needed to process a given 
key are not read into main storage. In 
order to skip the cylinder index entries 
preceding the one needed to process a given 
key, a CCB to read the cylinder index is 
built along with a string of CCWs. Figure 
59 gives a description of the CCW string. 


This transient then executes the channel 
program and determines if the address of 
the first cylinder index entry read is the 
address of the required entry (SKEH, TIC, 
NO-OP). If it is, there are no cylinder 
index entries to be skipped and the 
cylinder index is then read into main 
storage from that point. If the addresses 
are not the same (RDID, SKEH, TIC, RD), a 
check is made to determine if this is a 
dummy chained entry. | 


If it is a dummy chained entry 
(indicating the end of the cylinder), its 
address points +o the first track of the 
next cylinder containing the cylinder 
index. This phase subtracts 1 from the 
record number of the dummy chained entry to 
get the preceding cylinder index entry, 
moves the chain address to the next 
cylinder index entry to be read (in the 
DTFIS table), and reads the cylinder index 
into main storage starting with the entry 
preceding the dummy chained entry. 


If it is not a dummy chained entry, a 
test is made to determine if the required 
entry is the first record on the first 
track of the cylinder. If it is, this 
phase sets up to read the cylinder index 
into main storage starting with entry 
preceding the dummy chained entry for the 
previous cylinder. If the required entry 
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on the first track 
is made to 

number of the 

‘Ve 


is not the first record 
of the cylinder, a test 
determine if the record 
cylinder index entry is 


If it is 1, the track number is 
decreased by 1 and the record number is 
updated to the maximum record number for 
the cylinder index track. The cylinder 
index is read into main storage starting 
with the last record on the preceding 
track. If the required cylinder index 
record number is greater than 1, the record 
number is decreased by 1, and the cylinder 
index is read into main storage starting 
with the precedirg entry on the track. 
Fach time a cylinder index entry is read, 
the number of available index entries in 
Main storage is decreased by 1. 


If the index skip option was not 
specified in the DIF, this phase decreases 
the number available core index entries by 
2. These twe ccre index entries contain 
dummy entries. The first dummy entry at 





Coe AED OEE CED COED GND END END ED SD SY 


| CCW Built 
| rete eae ate ee cee AE ED ae SE TD a SEE ENS SSE RY SE Aer ete esc 
{X'O7", Address of cylinder index Sneey a 
{Command Chaining, 6 


I 
}X'31", Address of cylinder index SREEYs 
{Ccmmand Chaining, 6 


| 
[x'ost, 


g 


Pointer to *-8, 


[ 

{X'69", EKEYARG, Command Chaining and 
{Suppress Length Indicator, KEYLEN 

| (Key Length). 


td 


| 
(x'os', 
i 
(x*'O3', 
I 
{X'92', 
[ 

| 

| 
}x'69' 
|Suppress Length Indicator, 
{ (Key Length). 


Pointer to ¥*+16, 


, Suppress Length Indicator, 


IDOFHIT, Command Chaining, 8. 


&KEYARG, Command Chaining and 
KEYLEN 


| 
[x'ost, 





Pointer to *-16, -, -. 
noe. POINTER, End of Chain, 10. 
| 
a i ee ee ees pane 
Figure 59. 


tc process a given key. 





the beginning of the cylinder index storage 
area contains either a key of all zeros (if 
this is first time the cylinder index has 

been read into main storage) or it contains 


en en fe 


the key of the last cylinder index entry 
read into main storage. The second dumm 
entry is located at the end of cylinder 

index storage area and has a key of all 

X'Fts. 


Before a part or all of the cylinder 
index is read into main storage, a test 
made to determine how. many cylinder inde 
records can fit in the area available. 
CCB and a CCW chain are built to perform 
the actual read operation. Figure 59 gi 
a description of the CCW chain. The 
channel program is executed and the numb 
of core index entries is decreased by th 
number of records read. The cylinder in 
is read into main storage until either t 
end of the cylinder index is reached or 
there are no more core index entry 
positions. 


| | Function 





| 
| 
| 








{Long seek. 


| 
|Search identifier equal (SIDE) 


{cylinder index. 

| 

{TIC to *-8. 

l 

jSearch key equal or high (SKEH) the 
[cylinder index. Key supplied by user in 
{the DTF table. | | 

[ 

{TIC to *+16. 

i 

| | 

jRead count (multiple-track) (RIDM) into 
| IDOFHIT, 8-byte area for record found on 
| SIDE. 

| 

|Search key equal or high (SKEH) 
jcylinder index. 

{ 

[ 

JTIC to *-16. 

| 
}Read data portion of cylinder index entry 
| (RD) into POINTER, 10-byte area for 
Jpointer to track index. 


the 


the 
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CCW chain built by S$$BINDEX to skip cylinder index entries preccerag the one 
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Cc RS 2S A SE PS A 





CCW Built | 


iX¥'07", Address of cylinder index entry, 
{Ccmmand Chaining, 6. | 


i 
1x'31', Address of cylinder index entry, 
{Ccmmand Chaining, 6. 

| 
1X'08*, Pointer to ¥*-8, -, -. 


| | 
{|X'OE', Address of 


{Command Chaining, Key Length + 10. | 
We a eee ee 


|Long Seek. 

{|Search identifier equal (SIDE) 
{cylinder index. 

{TIC to *-8. 


cylinder index entry in {Read key and data (RKD) of cylinder index 
jmain storage (multiple of key length + 6),jJentry into storage. 


ED DED CED EAD ED ED ES CEST ENO EERE TA OS CE SE CE 
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See es ee 
Function | 








the 


Figure €0. CCW chain built by S$$BINDEX to read the cylinder index into storage. 


TSAN REIRVE REAL Macro, KEY, 


Objective: To perform the random retrieval 
function for an indexed sequential file by 
searching the indexes to determine the 
track on which the desired record is 
stored. 


Entry: From the REAL, KEY macro expansion. 


Exit: To the problem program via linkage 
register 14. 


Method: This routine first initializes 
pointers and status bits in the DTFIS 
table. It then constructs the CCW chain to 
search the master or cylinder index (see 
Figure 61). It determines the highest 
level index (master or cylinder) being 
used, and tests for ERREYT=¥ES. If ERREXT 
is specified, additional error conditions 
can be returned to the problem progran, 
thus giving the user greater flexibility in 
attempting to continue processing. This 
routine then searches the highest level 
index to get the address of the next index 
to be searched. 


A test of the F code from the index 
level pointer is then made to determine if 
the next search is of the track index (see 
Figure 20). The F code refers to the index 
level just searched. If the master index 
was just searched, the next search is on 
the cylinder index. If the next search is 
not on the track index, the routine gets 
the index entry type and determines the 
routine to process that type. 


If the entry type is a normal entry, the 
routine returns to search the next index. 
If the entry type is a dummy end entry or 
an inactive entry, the routine branches to 
an error routine to set a no-record-found 
flag in the DIF table and to return to the 
problem program. If the entry is a dummy 
chained entry, the routine returns to 
search the index using the address supplied 
by the 10-byte index level pointer. 


When the next search is found to be on 
the track index, a test is made to 
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determine if the track index takes up one 
track or more. If the track index does not 
require a full track, the routine builds a 
new CCW chain to search the track index 
(see Figure 62). This routine then issues 
the EXCP and SVC7 (WAIT) to search the 
track index. If the over/under seek 
routine is not needed, it returns to the 
problem progran. 


in 


SAM RETRVE, 
FD-FG 
Objective: To ensure that the last EXCP 
issued has been completed and that the 
condition is normal. If the operation is a 
read, to locate the specified record and 
complete the transfer of data to the I/0 
area specified by the DTFIS entry IOAREAR, 
and to the specified work area if the DTFIS 
entry WORKR is included in the file 
definition. If the operation is a write, 
the objective is to return control to the 
problem progran. 


Entry: From the WAITF macro expansion. 


Exit: To the problem program via linkage 
register 14. 


Methods This routine first tests for 
ERREXT=YES. If ERREXT is specified, 
additional error conditions can he returned 
to the problem program, thus giving the 
user greater flexibility in attempting to 
continue processing. After initializing |. 
pointers to the DIFIS table, this routine 
tests the status byte in the DTF table, to 
determine if the condition so far is 
normal. If an abnormal condition exists, 
control returns to the problem progran. 


If the condition is normal, the routine 
issues a WAIT to determine if the EX¥CP 
issued by the READ or WRITE routines has 
been completed, and also tests for errors. 
Then, if the operation is a WRITE, this 
routine returns control to the problem 
program. ; 


If the operation is a READ, this routine 
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must complete the read operation by moving 
the data to the I/O area. If first moves 
the address cf the track in which the 
desired record is stored to the seek/search 
area, and initializes pointers to KEYARG 
and the I/O area. It also gets the 
relative key location and key length. 


The routine then gets the index entry 
type (F code) from the search address and 
determines the routine to process that 
type. If the entry is a normal entry on an 
unshared track, a new CCW chain is built to 
find the record in the prime data area. 
(see Figure 63). If blocked records are 
specified, the CCW command code is modified 
to search high cr equal. An EXCP and WAIT 
are issued to find the record and read the 
block into the I/O area. If records are 
unblocked, the record is moved into WORKR, 
if specified, and control returns to the 
problem program. If records are blocked, 
this routine tests to determine if KEYARG 
is less than the key in the first logical 
record. If it is, the record has not been 
found, and the corresponding bit is set on 
in the DTF table. Otherwise, the 
corresponding key is found within the block 
and the routine moves the block to WORKR, 
if specified. Contrceol then returns to the 
problem program. 


For “a normal entry on a shared track, 
the routine decreases the record number in 
the search address by 1, and builds a new 
CCW chain to find records on a shared track 
(see Figure 64). Processing continues as 
in the routine to process a normal entry on 
an unshared track. 


If the entry is an overflow end entry or 
an overflow chained entry, this routine 
first constructs a CCW chain to search the 
overflcw chain (see Figure 65). An EXCP 
and WAIT are issued to locate the record in 
the overflow chain. A test is made to 
determine if the desired record has been 
found. If it has not been found, the 
routine tests for an overflow end entry. 

If it is an overflow end entry, the 
no-~record-found bit is set on in the DTF 
table. If it is nct an overflow end entry, 
the sequence link field is inserted in the 
seek/search address, and the overflow chain 
is searched again. 


If the record has been found, overflow 
bits are set on in the DTF table, and the 
non-first overflow record count is 
increased by 1. The logical record is 
moved to WORKR, if specified. Control 
returns to the problem program via register 
14. 


If the entry is a dummy end entry or an 
inactive entry, the routine sets a 


no-record-found bit on in the DTF table, 
and returns control to the problem progran. 


WRIT acro, KEY, 


: To perform random retrieval 
or an indexed sequential file. 


Method: This routine first sets the write 
bit on in the DTFIS table. It then tests 
for an uncorrectable DASD error, wrong 
length record error, or no record found 
error. If any of these errors exist, the 
no-record-found bit is set on in the DTF 
table, and control returns to the problem 
program. | 


If there are no errors, the status byte 
in the DTF table is reset, and pointers to 
the DTF table are initialized. fThis 
routine then gets the count field of the 
record as saved by the READ routine, the 
address of WORKR, and the address of the 
logical record within the I/O area. The 
record, or block of records, is moved to 
the I/O area from WORKR, if specified. The 
CCW chain to write records is then built 
(see Figure 66). 


If the entry to be written is not an 
overflow entry, the byte count field in the 
write and verify CCWs is modified to the 
block length from the DTF table. This 
routine then issues the EXCP to write the 
record, and returns control to the problem 
program without issuing a WAIT. The WAIT 
function is left to the WAITF macro, which 
must be issued before the user can continue 
processing. 


LSAM RETRVE, RANDOM: FREE Macro, Chart FK 


3s To free a held track if the 
d option has been specified. 


Entry: From the FREE macro expansion. 


Exit: To the problem program via linkage 
register 14. 


Method: This routine determines whether the 
track hold option has been specified in the 
DTF. If so, both the held data track and 
the applicable held index track are 
released. All tracks are released by SVC 36 
and control returns to the problem program. 
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CCW Builder | 
Control Code!| 


1 


CCW Built 


1X'69", SKEYARG, CC and 























| 

; 

{ 

| 7461 

i {SLI, Key Length 

| { 

|----— _—_—-+ --- OO 

| OC6B {|X*08*, Pointer to *+16, CC 

| jand SLI, 5 

| aoe oe loc cata ata 

; D17B {X'1A', 26Filename.W, CC, 

{SLI, and SKIP, 5 

| 536C 1|X"'92", SIOAREAR, CC and 

| |SLI, 10 

| 7461 {x'69", KEYARG, CC and SLI, 

| {Key Length 

] . 

a ec a 

| O46B {X'O8', Pointer to *-16, CC 

| | land SLI, 5 

| -—----————- +--+} -—--—— SS 
110C {X'06"', 26Filename.W, 00, 10 


| 
| 
| 
LN, RRA Ce TESTE SEER CES CEILS ER AUTES: SOEIES ST GOR AI ERE: PAT RTE AS I TRI EER REY 





co a mets ates eens ante et me nh 


—--+ 
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| 
| 


| 
| Function 


{Search key equal or high the master/ 
|cylinder index. Key supplied by user in 
jthe DTFIS table. 











{TIC to *+16. 


{Read home address into random/sequential 
j|retrieval work area in DTFIS table. 








{Read count (multiple track) into IOAREAR. | 











|Search key equal or high the master/ 
{cylinder index. Key supplied by user in 
{|DTFIS table. 





| 
| 
. 
| TIC to *-16. | 
| | 
| 
| 
I 














| Read data (10-byte index level pointer) 
jinto random/sequential retrieval area in 
{DTFIS table. 





= ocean enema eee eS PCD GEE et AND eS ND SENRD- SScASDSceeyEDNPENA cnc ne | 
i-2 See notes 1 and 2 in Figure 67. 
Figure 61. Channel program builder for random retrieval -- CCW chain built to search 
master cylinder index. 
See ape SON ae Ie I eee EE ea ae ee ee 
|CCW Builder | | | 
{Contrcl Code?!| ccW Built | Function | 








|---------—— ——f——— —— men 
{ D36B 

| 9461 [X'ES', SKEYARG, CC and SLI, 
| | Key Length 

\ | 

| coy ets ls esis as oe cab sct na tai a in a i i a ie en ee a i a i i i 
i 066B (X¥'O8', Pointer to *-8, CC 

| Jand SLI, 5 

| esinewes eis te sc ses husband nme dew se centavos nti cana Sais casio 

| 110C {X'06", 2&6Filename.W, 00, 10 
| 

| 


Co eee ERED SEY ATES ELI GEES EMER TLETS LEE EO ELUNE CED REED CII SRT ERS EI ERE LS AEE EAS ASL LT TR CET AONE SES SIN EIS 


i-2 See notes 1 and 2 in Figure 67. 


Figure 62. 
track index. 
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ca ace ae ae es weno ft : 
|X'1A", G&SIOAREAR, CC and SLI, 5 |Read home address into IOAREAR. 





|Search key equal or high (multiple- | 
| track) track index. Key supplied by user| 
jin DTFIS table. [ 





{TIC to *-8. | 
i 











|Read data (10-byte index level pointer) 
jinto random/sequential retrieval area in 
{DTFIS table. 


aera | 


Channel program builder for random retrieval -- CCW chain built to search 
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a te ree eee ee DRT Re ee ep ee Resale Oe ee re Se Se ye ee = sh 
| CCW Builder | { | 
|Control Code!?| CCW Built ; Function ] 
| ---—--—-——--- + ---- et SS | 
| 7461 {X'69', SKEYARG, CC and |Search key equal or high in prime data | 
| |SLI, Key Length jarea. Key supplied by user in DTFIS { 
[ | table. 
|----—--——_-—-— = SS eS Se —— | 
| OC4B {X'O08', Pointer to *+16, {TIC to *+16. | 
{ jcc, 5 | { 
(—_-----—_—_ __——_ -_—_ OH aS 2 a 
] D17B |X'1A"', 2&Filename.W, CC, jRead home address into random/sequential | 
| {SLI, and SKIP, 5. jretrieval work area in DTFIS table. | 
(--_--—___—___- +} -——__-_--_ -- ——- = a emnenemmnnecnnimemememes | 
| 4O6C }X¥'12', 2&Filename.S+3, CC |Read count into common seek/search { 
| jand SLI, 10 | jarea in DIFIS table. { 
——— i ce a meinen a re an ee = | 
| 6461 1X'29* or X69", &KEYARG, {If records are unblocked, search key | 
] or 7461 {cC and SLI, Key Length jequal the prime data area. If records | 
| 1 jare blocked, search key equal or high in | 
| | jprime data area. Key supplied by user in| 
|. | |DTFIS table. 
a errrcenencmameme | 
| O44B }X¥'O08*, Pointer to *-16, | TIC to *-16. | 
[ jcc, 5 l 

(=== === == ——— Set <= a SaaS = 
| 1302 1X'O6", SIOAREAR, 00, Block | Read data (block) containing starting | 


| JLength 
1-2 See notes 1 and 2 in 


Figure 63. Channel program 


_reccrd in prime 


{record into IOAREAR. 


Em i a nr i OR I Senne | 
Figure 67. 
builder for random retrieval -- CCW chain built to find 
data area (unshared track). 
See SS ee ee ee = 


{| CCW Builder | 






























































[ 
{Control Code! CCW Built | Function | 
= — SS Se | 
| 804B [X¥'31", 2&Filename.S+3, CC, 5 |Search identifier equal the prime data | 
| { jarea using the pointer (CCHHR) in the | 
] | jcommon seek/search area in the DTFIS | 
i | jtable. | 
=== = SSS ee Sa eS = | 
| O64B 1x'08', Pointer to *-8, CC, 5 {TIC to *-8. ' 
|--—- ———— ——— SS = . ——| 
| 4O6C 1X'12*, 2&6Filename.S+3, CC j;Read count into common seek/search | 
| | jand SLI, 10 jarea in DIFIS table. [ 
(SS ——————— Pa ana : cee te merece | 
{ 6461 1X¥*29" or X'69", EKEYARG, jI£f records are unblocked, search key [ 
| Or jCcC and SLI, Key Length jJequal the prime data area. If records | 
| 7461 { jare blocked, search key high or equal the| 
i | {prime data area. Key supplied by user in| 
j | {DTFIS table. | 
| -—--—_-_-_—-—-— = Pe ies aan acl a a { 
[ O44B |X'O08*, Pointer to *-16, CC, 5 |TIC to *=-16. | 
(= ———— — SSS ee a nen 
j 1302 {X'O6", SIOAREAR, 00, {Read data (block) containing record | 
| | Block Length jinto IOAREAR. i 
Me ee. peaeaneEn ot icnbaant a eats pia ee I I ORIN AL RE IN ENT RCE Ree EEN Ie! 
i-2 See notes 1 and 2 in Figure 67. 
Figure 64. Channel program builder for random retrieval -- CCW chain built to find 
record in prime data area (shared track). 
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ne eS ae meee ee ay ee a Ee ea ee PRT Ty ee ee ET Tg Ne EL Pa ge ONT gL EN Oe eae EY BN eg ee Ee Oe MS TE Pe eee ee 
{CCW Builder | ° | 
{Control Code? CCW Built | Function 

80 4B 


{chain using the pointer (CCHHR) in the 


| 

| 

| 

X'31', 2&Filename.S+3, CC, 5 | Search identifier equal the overflow i 
- ; 

|common seek/search area in the DTFIS | 

l 















































| jis executed when the matching key is 
[ jfound in the overflow chain. 


jtable. 

ce eee em en cence ee a el en tae cee me eee se nit a cea es spa ae i i cei fp i i sc a pi sts seca eh ce a | 
| 064B {xX'O08*, Pointer to *-8, CC, 5 | TIC to *-8. | 
a a a ———e a ee eae aera ——| 
| 6461 {X¥'29", &SKEYARG, CC and |Search key equal the overflow chain. | 

+|SLI, Key Length |Key supplied by user in DTFIS table. | 
SS Se ae << Sa aacacmcea | 
| 116C 1X¥'06', 2&6Filename.W, SLI, 10 | Read data (10-byte sequence-link field) | 
| | jinto random/sequential retrieval area in | 
| | | DTFIS table. This CCW is executed when | 
| ; jthe required overflow record is not found] 
| | jin the overflow chain. | 
aa ai anae ee SS ——— | 
; 1303 {X'O6", EIOAREAR, 00, jRead data (sequence-link field plus | 
| {Record Length + 10 | logical record) into IOAREAR. This CCW | 
| | 
| | 





i-2 See notes 1 and 2 in Figure 67. 


Figure 65. Channel program builder for random retrieval -- CCW chain built to find 
record in overflow chain. 



























































Wg Gg eG ee a eG ee ee GR ee Eee ee Pe ee, ee ee cers | 
{| CCW Builder | | : 
{Control Code? CCW Built | Function | 
|---—-_----—----+-—— Se ———— SS nnn | 
| 804B (X¥'31", 2§Filename.St+3, CC, 5 {Search identifier equal prime data area | 
| i Jusing pointer (CCHHR) in common seek/ | 
[ i {search area in DTFIS table. | 
== _-_-|--- not ———S = —————— | 
| O64B 1X'O8', Pointer to *-8, CC, 5 |TIC to *-8. | 
omen cenenn ere emmenvamnamane aaa ene cm ics ep eres cept ms ep mince Se ener er rs eu ams Sena mcs i i niacin ss iin airs me iii iis is desi ionana cs | 
| B3C3 {X°O5"', SIOAREAR, CC, Record {Write data from IOAREAR. | 
| {length + 10 | | 
|-------——--- | --- nnn SS SS 
| 804B }X'31"', 2&Filename.S+3, CC, 5 |Search identifier equal the prime data | 
{ | jarea, uSing pointer (CCHHR) in common | 
| | |seek/search area in DTFIS table. | 
l —_———--—-|- ---—- et nm cna ene enennrwcremenennran | 
| 0648 1X'O8*, Pointer to *-8, CC, 5 | TIC to *-8. | 
== SS Se ———— | 
f 1333 1X'06", SIOAREAR, SLI and jRead data to verify record just written. | 
| |SKIP, Record Length + 10 | Information is not transferred to main | 
i | | storage. 
ee aie ae cs a cs a aa stn em nes ici nt ce ie i a ee en le ema 





1-2 See notes 1 and 2 in Figure 67. 


Figure 66. Channel program builder for random retrieval -- CCW chain built to write 
record. 
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ieee a ae 
[Note 1: 
| 


{The first character of the control code references an operation code at IJHCSTRI. 
{The second character of the control code references a data area at IJHCASAD. 
{The third character of the control code references the following information: 


Control Character = CCW Flag Field 


X' O08 
Xx*20' 
x*'30° 
¥Y'4or 
x*'60° 
x'70° 
x* co! 


AATNHNEWNO 


|The fourth character of the control code references a byte count (length) 


{field at IJHCRESZ. | : 


|&Filename = DTF name supplied by user. 


{&Filename.X = X is suffix supplied by DTFIS for unique DTF labels. 


a an a a ee i we ee ee 


Figure 67. 


ISAM REIRVE, SECNTL: ESEIL Macro, Chart GA 
Objectives: To write the last record if 
necessary, and reset the status byte in the 
DTFIS table. 


Exit: To the problem program via linkage 
register 14. 


Method: After initializing pointers to the 
DTFIS table, this routine sets the status 
byte in the DTFIS table tc 0. A test is 
then made to determine if the PUT issued 
bit is on in the retrieval byte of the DTF 
table. If it is on, the last block of 
records is written. A test for IOAREA2=YES 
is then made. If IOAREA2 is specified as 
an ISMOD macro parameter option to allow 
overlapping of I/O with processing, a bit 
is set in the DIF table to indicate the 
first record is being processed and a wait 
for I/0 completicn is made. If HOLD=YES is 
specified, an SVC 36 releases any held 
tracks. Control then returns to the 
problem program. : 


Objective: To perform the sequential 
retrieval input function for an 
indexed-sequential file. 


register 14. 


Meaning 
End of CCW chain 

SLI (Suppress Length Indicator) 

SLI and SKIP (Suppress Data Transfer) 
cc (Command Chaining) 

cc and SLI 

CC and SLI and SKIP 

cc and DC (Data Chaining) 


| 














Channel program builder for random retrieval -- notes. 


Method: This routine initializes pointers 
to the DTFIS table, and then tests for 
IOAREA2=YES. If IOAREA2 is not specified 
as an ISMOD macro parameter option, a test 
is made to determine if the last record 
read was in the overflow area. If the last 
record read was in the overflow area, the 
contents of the sequence-link field is 
moved to the seek/search area and a test is 
made to determine if the end of the 
overflow chain has been reached. If the 
last record read was in the overflow area 
and HOLD=YES has been specified, the track 
is released, then the overflow record is 
read and addresses are saved. If HOLD=YES 
is specified, the index track and data 
track are held during update procedure. 
The index track is then released. The 
record is then moved to WORKS, if 
specified, and control returns to the 
problem progran. 


If the end of the chain has been 
reached, the current DASD address is 
updated to the next track and the next 
record is read. The record is moved to the 
work area if specified, addresses are 
saved, and control returns to the problem 
progran. 7 


If the last record read was not in the 
overflow area, the routine determines if 
all records in the block have been 
processed. If all the records in the block 
have not been processed, the I/O area 
pointer is updated to the next logical 
record. If that record is not a padding 
record, it is moved to the work area, if 
specified, addresses are saved, and control 
returns to the problem program. If itisa 
padding record, the EOF indicator is set in 
the DTFIS table, and control returns to the 
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problem program. 


If all records in the block have been 
processed, a check is made to determine if 
the FUT macro has been issued. If it has, 
the record is written. 


A test is made to determine if the end 
of the track has been reached. If it has 
been reached, the track index is searched 
to find the next track index entry. The 
current track index record number in the 
DTF table is then updated, and a test is 
made to determine if there is any overflow 
record indicated in the track index entry 
just read. If the track index entry 
indicates an overflow record is present, 
that overflow record is read, and moved to 
the work area if specified. Control 
returns to the problem progran. 


If there is no cverflow record indicated 
in the track index entry, the current 
address is updated by 1, and the record is 
read and moved into the work area, if 
specified. Control returns to the problem 
program. 


If IOAREA2 has been specified to allow 
overlapping of I/O with processing, a test 
is made to determine if the last record 
read was in the overflow area. If the last 
record read was in the overflow area, a 
test is made to determine if the record 
being processed by the user is an overflow 
record. If it is an overflow record, a 
wait for I/C completion is made, the next 
available I/O area address is obtained, the 
current record address is saved, and a test 
is made to determine if the first record is 
being processed. 


If the first record is being processed, 
the overflow record is read, its address is 
saved in the DTF table and the record is 
moved to the work area if specified. 
Control then returns to the problem 
progran. 


If the first record is not being 
processed, the address of the next overflow 
record is moved to the seek/search address 
and a test is made to determine if the end 
of the overflow chain has been reached. If 
the end has not been reached, the overflow 
record is read, and addresses are saved. 

If HOCLD=YES is specified, an SVC 36 
releases any held tracks. Control then 
returns to the rroblem progran. 


If the end of the overflow chain has 
been reached, the current disk address is 
updated to the next track and the next 
record is read. The record is moved to the 
work area if specified, addresses are 
saved, and control returns to the problem 
program. | 


If the last record was not an overflow 
record and the current record is not an 
overflcw reccrd, this routine determines if 
all the records in the block have been 
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processed. If all records in the block 
have not been processed, the I/O area 
pointer is updated to the next logical 
record and the record number is updated by 
1. If the next logical record is not a 
padding record, it is moved to the work 
area, if specified, addresses are saved and 
control returns to the problem program. [If 
it is a padding record, the EOF indicator 
is set in the DTF table and control returns 
to the problem progran. 


When all the records in the block have 
been processed, a check is made to 
determine if the PUT macro has been issued. 
If the PUT macro has been issued, the 
record is written. A test for the presence 
of two I/O areas is then made. If the 
presence of two I/O areas is indicated in 
the DTF table, a test is made to determine 
if the first record is being processed. If 
the first record is not being processed, a 
wait for I/O completion is made and the 
record address is saved in the DTF table. 


A test is made to determine if the end 
of the track has been reached. If the end 
of the track has been reached, the track 
index is searched to find the next track 
index entry. The current track index 
record number in the DTF table is then 
updated, and a test is made to determine if 
there is any overflow record indicated in 
the track index entry just read. If the 
presence of an overflow entry is indicated, 
and there are two I/O areas present, this 
routine tests to determine if this is the 
first record. If it is not the first 
record, the record counter is set to 1. 

The overflow record address is moved to the 
seek/search address, and the overflow 
record is read and moved to the work area, 
if specified. Control then returns to the 
problem progran. 


If there is no overflow record indicated 
in the track index entry, the current 
address is updated by 1, the next record is 
read and moved to the work area, if 
specified, and control returns to the 
problem program. 


Objective: To perform the sequential 
retrieval output function for an indexed 
sequential file. 


Entry: From the PUT macro expansion. 


Exit: To the problem program via linkage 


register 14. 


Method: After initializing pointers to the 
DTFIS table, this routine tests whether a 
GET has been issued. If a GET has not been 
issued, there is an SVC 50 (error). 
Otherwise, the GET issued switch is turned 
off and the output bit in the retrieval 
byte in the DTFIS table is turned on. The 
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record is moved from the work area to the 
I/O area, and the output bit in the 
retrieval byte is set off. 


If the record is unblocked, or is in the 
overflecw area, this routine writes the 
record and returns control to the problem 
program. If the records are blocked, this 
routine sets the bit in the retrieval byte 
to indicate that the PUT macro has been 
issued for this record, and returns control 
to the problem program. The GET macro 
routine causes the block to be written on 
DASD when it determines that all records in 
the block have teen processed. 


ISAM REIRVE, SEQNTL: SETI Macro, $$BSETL, 


retrieval based on information supplied by 
the user in the SETL macro. 


Entry: From the SETL macro expansion. 


Exit: To the problem progran. 


validates the limits of the DTFIS table and 
IOARFAS to ensure that they lie within the 
partition. If HCLD=YES has been specified 
in the DIF, $$BSETL1 is fetched to perform 
the SETL macro functions. If track hold 
has not been specified, $$BSETL then 
initializes for sequential retrieval based 
on the information supplied by the user in 
the SETI macro. The SETL macro specifies 
the type of reference used to identify the 
first record to be processed. The types of 
reference are: ' 


e KEY. Key of starting record in the 
file. 
e GKEY. Location of starting record in 


the file, identified by a record key 
within a desired group. The user 
supplies a key that identifies the high 
order bytes of the required group of 
keys. For example, a GKEY specification 
of D6430000 would permit file processing 
to start at the first key containing 
D6O43XXX¥X, regardless of the characters 
represented ky the Xs. 

e BOF. Beginning of the logical file. 

@ ID (MBBCCHHR). Location of starting 
record in the prime data area. 


If sequential retrieval is to begin with a 
record associated with a particular key 
(KEY), the key of the beginning record must 
be placed in the field defined by the DTFIS 
entry KEYARG before issuing the SETL macro. 
This phase searches the master index (if 
present), cylinder index and track index 
until it finds the track index entry 
associated with the specified key. It 
determines whether the record with the 





desired key is on a shared or unshared 
prime data track or in the overflow area. 


If the record is on a shared track, the 
search is initialized to kegin after the 
remainder of the track index has been 
bypassed. If the record is on a prime data 
track and records are unblocked, the track 
index overflow entry address associated 
with the desired record is calculated and 
stored in the DIFIS table, and the track is 
searched equal for the desired record. If 
the record is not found, a no-record-found 
indicator is set in the DTFIS table | 


 (Filename.C) . 


If the file contains blocked records, 
the track is searched equal/high for the 
desired block. The user must supply (in 
the DTFIS entry KEYLOC) the position of the 
key field in the data record. The block is 
then searched. When the record with the 


matching key is found, its address is saved 


in the DTFIS table and control returns to 
the problem program. If the record is not 
found, the no-record-found indicator is set 
in the DTFIS table (Filename.C). 


If the record with the desired key is in 
the overflow area, the track index normal 
and overflow entry addresses are stored in 


the DTFIS table, and the overflow chain is 


searched for the desired record. When the 
desired record is found, its address is 
saved in the DIFIS table. If the desired 
record is not found in the overflow chain, 
a no-record-found indicator is set in the 
DTFIS table (Filename.C) and control 
returns to the problem program. 


If GKEY was specified in the SETL macro, 
the CCW chain to read the desired record is 
modified to search key equal or high. The 
search for the desired record then proceeds 
im the same manner as if KEY were specified 
in the SETL macro. However, in this case 
(GKEY), a no-record-found condition should 
not occur unless the key specified is 
higher than the existing highest key in the 
file. 


If BOF was specified in the SETL macro, 
the address of the first prime data record 
in the file is saved in the sequential 
retrieve section of the DTFIS table, and 
the track index overflow entry address 
associated with the desired record is 
calculated and stored in the DTFIS table. 
Control then returns to the problem . 
program. 


If the starting record address is 
referenced by a symbolic name in the SETL 
macro, this phase analyzes the 8-byte DASD 
address (MBBCCHHR) in. the field specified 
by the symbolic name for validity. If the 
address is invalid, an illegal ID indicator 
is set in the DTFIS table (Filename.C) and 
control returns to the problem program. If 
the starting address is valid, this phase 
saves the address in the DTFIS table, 
calculates the track index overflow entry 


Indexed Sequential Access Method 149 


address associated with the desired record, 
stores it in the DTFIS table and returns 
control to the problem progran. 


In order to perform a search of the 
master, cylinder or track indexes, prime 
data area and overflow area for the 
starting record, a CCW string is built to 
search the required areas. Figures 68-71 
give a description of the channel program 
built to perform the necessary search. 


Charts GM-GR 


Objective: To initialize for sequential 
retrieval when HOLD=YES, based on 
information supplied by the user in the 
SETL macro. 


htry: From the SETL macre expansion. 


ies 


3) 


xits; To the problem program. 


Method: This logical transient first 
validates the limits of the DTFIS table and 
IOAREFAS to ensure that they lie within the 
partition. It then initializes for 
sequential retrieval based on the 
information supplied by the user in the 
SETL macro. The SETL macro specifies the 
type of reference used to identify the 
first record to be processed. The types of 
reference ares: 


Key of starting record in the 


e@ KEY. 
file. 
e GKEY. Location of starting record in 


the file, identified by a record key 
within a desired group. The user 
supplies a key that identifies the high 
order bytes of the required group of 
keys. For example, a GKEY specification 
of D6430000 would permit file processing 
to start at the first key containing 
D643XXXX, regardless of the characters 
represented ky the Xs. 

e BOF. Beginning of the logical file. 

e ID (MBBCCHHR). Location of starting 
record in the prime data area. 


If sequential retrieval is to begin with a 
record associated with a particular key 
(KEY), the key of the beginning record must 
be placed in the field defined by the DTFIS 
entry KEYARG before the SETL macro is 
issued. This phase searches the master 
index (if present), cylinder index, and 
track index until it finds the track index 
entry associated with the specified key. 

It determines whether the record with the 
desired key is on a shared or unshared 
prime data track or in the overflow area. 


If the record is on a shared track, the 


search is initialized to begin after the 
remainder of the track index has been 
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bypassed. If the record is on a prime data 
track and records are unblocked, the track 
index overflow entry address associated 
with the desired record is calculated and 
stored in the DTFIS table, and the track is 
searched equal for the desired record. If 
the record is not found, a no-record-found 
indicator is set in the DIFIS table 
(Filename.C). 


If the file contains blocked records, 
the track is searched equal/high for the 
desired block. The user must supply (in 
the DTFIS entry KEYLOC) the position of the 
key field in the data record. The block is 
searched. When the record with the 
matching key is found, its address is saved 
in the DTfFIS table, and control returns to 
the problem program. If the record is not 
found, the no-record-found indicator is set 
in the DIFIS table (Filename.C). 


If the record with the desired key is in 
the overflow area, the track index normal 
and overflow entry addresses are stored in 
the DTFIS table, the appropriate index and 
data tracks are held, and the overflow 
chain is searched for the desired record. 
When the desired record is found, its 
address is saved in the sequential 
retrieval section of the DTFIS table. If 
the desired record is not found in the 
overflow chain, a no-record-found indicator 
is set in the DTFIS table (Filename.C), the 
held index and data tracks are released, 
and control returns to the problem program. 


_If GKEY was specified in the SETL macro, 
the CCW chain to read the desired record is 
modified to search key equal or high. The 
search for the desired record proceeds in 
the same manner as if KEY were specified in 
the SETL macro. However, in this case 
(GKEY), a no-~record-found condition should 
not occur unless the key specified is 
higher than the existing highest key in the 
file. 


If BOF was specified in the SETL macro, 
the address of the first prime data record 
in the file is saved in the sequential 
retrieval section of the DTFIS table, and 
the track index overflow entry address 
associated with the desired record is 
calculated and stored in the DTFIS table. 
Control returns to the problem progran. 


If the starting record address is 
referenced by a symbolic name in the SETL 
macro, this phase checks the validity of 
the 8-byte DASD address (MBBCCHHR) in the 
field specified by the symbolic name. If 
the address is invalid, an illegal ID 
indicator is set in the DTFIS table 
(Filename.C), and control returns to the 
problem program. If the starting address 
is valid, this phase saves the address in 
the DTFIS table, calculates the track index 
overflow entry address associated with the 
desired record, stores it in the DTFIS 
table, holds the required index and data, 
tracks, and returns control to the problem 
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“progran. returning to the user. 

Before I/O is performed, a switch is In order to perform a search of the 
tested to see if track hold has been master, cylinder, or track indexes, prime 
specified. If it has, the data track(s) data area, and overflow area for the 
and the corresponding index track(s) are starting record, a CCW string is built to 
held until I/0 is complete. If any error search the required area. Figures 68 - 71 
conditions occur (for example, no record give a description of the channel progran 
found, wrong length record, or a DASD read built to perform the necessary search. 


error), any held tracks are freed before 


















































= SS SSS eee ——y 
| | CCW Builder | | | 
|Label|jContrcel Code? | CcW Built | Function | 
(=== ——— = Ss Canc ECCI RES E Ss ——— | 

| 7441 1X¥'69", SKEYARG, CC, Key [Search key equal or high the master/ | 

| {Length jcylinder index. Key supplied by user | 

( | {in DTFIS table. | 
---—-|-------- ——- --+-—--- OOOO OOOO EO eee [ 

| 0c40 1x'08', Pointer to *+16, CC, |TIC to *+16. | 

{ {Record Length | | 
SS ee enn re ee A TL ee a ——| 

{ BOYB [X'1A', 76Filename. S+3, CC, S}|Read home address into common | 

| | |seek/search area in DTFIS table. | 
eeeres er ee eee esses see ne ae es Seen 
| | 506B {X'92', 2&Filename.S+3, CC {Read count (multiple-track) - CCHHR - | 
| | jand SLI, 5 jinto common seek/search area in DTFIS | 
{ | | jtable. | 
(= Sa ee << ———— SS 
| | 7441 1X¥'69", GEKEYARG, CC, Key {|Search key equal or high the master/ | 
( | | Length {cylinder index. Key supplied by user.| 
| —_--——_+----_-----——— SS ——SSS | 
| i 0440 1¥'08*, Pointer to *-16, CC, |TIC to *-16. } 
| | {Record Length | | 
SSS Se aeaa ee EREuESR aR emcneT (E es ——— | 
| | 110C {X'O6", 26Filename.W, 00, 10 |Read data (10-byte index level | 
| | | {pointer) into random/sequential | 
i | | jretrieval area in DTFIS table. The | 
| | i {data field is then moved from the | 
i ; { j|random/sequential retrieval area to | 
i | { jthe common seek/search area for the | 
| | | [next search. | 
Oi ee cee are sie ek at eee sl ses i he ti a i aS eer | 














i--6 See notes 1 through 6 in Figure 75. 


Figure 68. Channel program builder for sequential retrieval -- CCW chain built to 
search master cylinder index. 
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SSS SS ee 
| |CCW Builder | i { 
|Label|Control Code! CcW Built ] Function [ 
marae Saari SS SS [ 
| | 80€C {x'31', 2&6Filename.S+3, CC |Search identifier equal the track | 
| ; Jjand SLI, 10 {index using the 10-byte pointer in the| 
{ | | [common seek/search area. _ | 
SS ee eee nee rcmmminnn | 
| i 0640 [X'08', Pointer *+8, CC, jTIC to *-8. i 
| | 7 {Record Length i | 
(<== + --—-———--t--—— ———— ——+— SS | 
| | 126C 1X'O06', EIOAREAS, CC and {Read data (10-byte track index [ 
| | {SLI, 10 |pointer) into IOAREAS, input/output ( 
] | | jarea for sequential retrieval supplied| 
| | | [by user. [ 
=== ae ca ae 3 
| | 506B {x'92', 2&Filename.S+3, CC {Read count (multiple-track) - CCHHR - | 
| | jand SLI, 5 [into common seek/search area in DTFIS | 
! | | Itable. | 
(= |---| eee eee eee 
| | 7441 1X'69", EKEYARG, CC, Key |Search key equal or high the track | 
[ | jLength Jindex. Key supplied by user. | 
=== SS eee canner | 
i | 0240 |X'O08", Pointer to *-24, — j[TIC to *-24, 

| | {CC, Record Length | 

{(—----+}-—--_-__——————-{— ——— SS —— 











| | jrandom/sequential retrieval area in 

| | |DTFIS table. The data field is then 

i i {mcved from the random/sequential 
| 


Jretrieval area for the next search. 
se in iciecameicetcaceiiniell 


[ 

| 

ne dance ie sts i a is | 

| 110C {¥'06', 2&Filename.W, 00, 10 |Read data (10-byte pointer) into | 
i 

| 

| 

| 


r----- 














i--6 See notes 1 through 6 in Figure 75. 


Figure 69. Channel program builder for sequential retrieval -- CCW chain built to 
search track index. 


























SS eee ee SS 
{ {CCW Builder | | { ; 
jLabel|Control Code! CCW Built | Function | 
[|_| <== nn rn a | 
(STRI1| O@4B {X'31', 2&Filename.S+3, CC, 5jSearch identifier equal the prime data] 
| | | Jarea using the pointer (CCHHR) in the | 
| { | lcommon seek/search area in the DTFIS | 
| | | |table. | 
mn nn rr rr nn rr ren re a cere eennnanenenenenemcemeaemen | 
| O€6B 1X'08', Pointer to *-8, CC {TIC to *-8. | 
| | jand SLI, 5 | | 
<> SS <= ee | 
{ | 41EC 1X'12', 2&6Filename.W, CC }|Read count into common { 
| | jand SLI, 10 |seek/search area in the DTFIS table. | 
| —----4-------- --- + —- _---_________------- —_-_ ---___-_- ___----_—— ——------—-| 
| | 6441 1X'29" or X'69", &SKEYARG, {If KEY is specified in the SETL macro | 
] | cr {cC, Key Length Jand/or records are unblocked, this | 
[ | 7441 | {CCW searches key equal the prime data | 
| | |. Jarea. If GKEY is specified in the | 
| | { {|SETL macro and/or records are blocked, | 
| | | [this CCW searches key equal or high ( 
; I | Jthe prime data area for the starting | 
| | | jrecord. | 
(<3 ee rns | 
| | O46B 1¥'08*, Pointer to *-16, {TIC to *-16. | 
i {[ 1cC and SLI, 5 | | 
| —--——~ 4 -—-----—---—----}- ---- rsa EMAAR EES —_——_— OO I 
| | 1202 [X¥'06", G&EIOAREAS, 00, jRead data (block containing starting | 
| | |Block Size {record) into IOAREAS. | 
a ee ce ee ee ae TEN, ION a SE EON, NE RI REE ee eee ee EE SED 
i--6 See notes 1 through 6 in Figure 75. 
Figure 70. Channel program builder for sequential retrieval -- CCW chain built to find 


starting record in prime data area. 
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(or rrr rrr eee 


| {CCW Builder { 
{Label|Contreol Ccde!| 


| -----4-------------4----—- 


{STRI3| 804B 1x'31!, 
i [ I 


——+ 
| { 0640 {x'O8', 
| | | Record 


| —----4-------------4---- 


af 
| 1203 [X*'O6!', 
| |Record 
| i 
[ | I 
Lu 





i--6 See notes 1 through 


Figure 71. Channel program 
starting record 








| 6441 1X¥'29" or X'69", SKEYARG, [If KEY is specified in the SETL 
Or {cC, Key Length {[macro, this CCW searches key equal 


EAE AR. NGS EIT I EE ENTE ET EES SITE ES AE AEG SE ARES: SE TES ST OE TNE REN CRETE ATR US ETI cee AE er ee es ee 
| 
| 


CCW Built { Function 


RELY TEPC CU OES AEDES EES TEAL EERE RELI DD CORED GED REED AAD ED ETS SD RES SED OED ED CHD PAR ST CEES SRS CREED ED GEATD CRIES OUD ETS COMED RSE EMP UE GODS | 


2&6Filename.S+3, CC, 5|{Search identifier equal the overflow | 


{chain using the pointer (CCHHR) in the| 
jcommon seek/search area in the DTFIS | 
[table. [ 


—---—- 4 -------------__-_- —__-------- + | 


Pointer to *-8, CC, |TIC to *=8. 
Length | 


cn a i wa a er a aa 




















AED SE EDR | 





{the overflow chain for the starting 
{record. If GKEY is specified in the 
J|SETL macro, this CCW searches key 
jequal or high the overflow chain for. 
jthe starting record. 





4+— commences apenas cpa ene eee. cm ant anes 
26Filename.W, SLI, 10]Reads data (10-byte sequence link 
{field) into random/sequential 
jretrieval area in DTFIS table. This 
[CCW is executed when the required 
joverflow record is not found in the 
joverflow chain. 








, —f- ——-—— ——-——--—-—— | 
SIOAREAS, 00, }Read data (sequence link field [ 
Length +10 {plus starting record) into IOAREAS. | 


[This CCW is executed when the matching| 
{key is found in the overflow chain. | 


SE SED CEE AED SAN AEDT a is ci i i pi ec en ine ein ec is in me aegis i ai ts cae cma 


6 in Figure 75. 


builder for sequential retrieval -- CCW chain built to find 
in overflow chain. 








SS SSS SS SS ee meee | 
{CCW Parameter | | | 
{Control Code | CCW Built | Function 
Ss ee ee ee ee i ie la i tea ee ee 
0540 [X'31', 2&Filename.S+3, CC, 5 |Search identifier equal the prime data 


| jtable. 
| ---------___-_- -—-| --___ nn a rae 
1x'O', Pointer to *-8, CC, 0 |TIC to *=-8. 
|----—-----_---__- | -———__———— - ee ee 
| {X¥'05',* &IOAREAS, CC,S§ | Write data (block) onto prime data 
| [Block Length® | jarea. 


i 1X¥'31", 2&Filename.S+3, Cc, 5 |Search identifier equal to verify write 


| -------------- | --------- 


re te ef ne 
| 1xX'O08", Pointer to *-8, CC, 0 |TIC to *=-8. — 


| --------—-----4-— 


a nf 
| 1X'06',* SIOAREAS, SKIP, | |Read data to verify write operation. 
|Block Length® ] 


{ 
(une ee eee PTY AI LE TEI | 
i--6 See notes 1 through 








Jarea using the pointer (CCHHR) in the 
jcommon seek/search area in the DTFIS 














| operation. 


| 


6 in Figure 75. 


Figure 72. Channel program builder for sequential retrieval -- CCW chain built to write 


records. 
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De re re ey pee a ee a ee ene ee Ge ee ee ee Te Te ga RE Te ee ee ee gre gy eg ee a en pee ee ae 

|CCW Parameter | | 

{Control Code | CCW Built |. Function 

i-— nen of rs ane eat ————— = 
0601 {X'31"', 26Filename.S+3, CC, 5 |Search identifier equal the track index 


| jarea using the pointer (CCHHR) in the 
| : jcommon seek/search area in the DIFIS 
| i table. 


E-SERIES SEAT GLISD ETE CEI NS SUN LATELY IEEE ED EIR TES PD ERIED BED CASTE COTE 





1x'O08", Pointer to *-8, CC, 0 {TIC to *-8. 


| 
| 
| 
| 
| 
| 
i 
| 
| 
| 
i 
| 














1X¥'06',* 2€Filename.W, CC,510 |Read data (10-byte index level pointer) 
| | jinto random/sequential retrieval area in | 
| jthe DIFIS table. 

rr ae en ee enerneemenmaee cee ee NE EID —— ee ae 
1X¥'31', 2&Filename.S+3, CC, 5 |Search identifier equal to verify read | 
| joperation. 


a 














1X'08*, Pointer to *-8, CC, 0 |TIC to *-8. | 








EES SD SES ES CRS SLD ESS TTS AE IES LECTED SD IEE ITS EAGER SESSA LS GR ES SD TNE TET OID | 


nn 
1X'06", SIOAREAS, SKIP, | Read data to verify read operation. | 
|Block Size | | 


i--6 See notes 1 through 6 in Figure 75. 


Figure 73. Channel program builder for sequential retrieval -- CCW chain built to 
search track index. 





Ge ete ce gern El Pe pee ce g res aS hse te era GO ee Pe Sag ee ee eS GE ee ae ee ORE ea NT LE ee eg, cra — 
{CCW Parameter | | 
{Control Code | . CCW Built | Function 
a eA ee 
0€00 {X'31", 2&Filename.S+3, CC, 5 |Search identifier equal the prime data 


| {common seek/search area in the DTFIS 


| 
{ | Jarea using the pointer (CCHHR) in the 
l 
i | . | table. 





--}---__----_--___--------—-} 
| {X'O8', Pointer to *-8 ,CC, 0 |TIC to *-8. 











|-------------——-}--—— ip AEDRE RS ERaEE 
| 1X*06",* &IOAREAS, CC,S$ jRead data into IOAREAS. 2 a al 
{ {Block Length3 | | 
| -——~-—- + -— ————— 
i {X'31", 2€Filename.S+3, CC, 5 |Search identifier equal to verify read | 
| | | operation. | 
|-_--—__-_--_---_--}-----—__-_- -—__—__--—--——- ee 
{ 1X¥'O08*, Pointer to *-8 ,CC, 0 |TIC to *-8. | 
|-—-------—_--_-—- | ---______-_—__—_—___—__ + 
| 1X¥'06",* SIOAREAS, SKIP, {Read data to verify read operation. | 
|Block Length* | . | 


| 
| 





a nr citer ne nema amen com niente ADD caren eee meen aera 























| . 
a a a 
i--6 See notes 1 through 6 in Figure 75. 
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Figure 74. Channel program builder for sequential retrieval -- CCW chain built to read 
records. 
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Qe ee En Te ee 


{Note 1: The CCW chains are*built by the B-transients, $$BSETL and $$BSETL1. The CCW 


jbuilder control code references information in the $$BSETL and $$BSETL1 assemblies. 


l 
{The first character of the control code references an operation code at IJHROP. 


|The second character of the control code references a data area at IJHARA. 
{The third character of the control code references the following information: 


i 

| Control_ Character CCW_Flaq_ Field Meaning 

l , 

{ 0 | X'O0! End of CCW chain 

| 2 Xx*20! SLI (Suppress Length Indicator) 
| 4 X'4or cc (Command Chaining) 

| 6 x*'60! cc and SLI 

| 


{The fourth character of the control code references a byte count (length) field at 
{RELNT. | 


a EP Ge eee 


{&Filename = DIF name supplied by user. 
{&Filename.X¥ = ¥ is suffix supplied by DTFIS for unique DTF labels. 


The first byte of the parameter is the command code. 


[ 
( 
I 
{The CCW parameter is found in the ISMOD assembly. 
[ 
l 
I 


_ |The second byte of the parameter contains flags with the exception of the chain to 


{search the track index. In this case, the second byte is an indicator to the channel 


|program builder that the CCW chain is to search the track index. 
l 


{Note 4: If the file contains unblocked records, the command code is modified to either 


jRead Key and Data, or Write Key and Data. 
{ 


[set on. 
i 
[Note 6: If the file contains unblocked records, the byte count field contains the 


[physical record length plus Key Length. 
et te enn cet 





Figure 75. Charnel frogram builder for sequential retrieval -- notes. 
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|Note 5: If the verify option has not been specified, the command chaining bit is not 
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Objective: To write the last record, if 
necessary, and to reset the status byte in 
the DTFIS table. 


Entry: From the ESETL macro expansion. 


DTFIS table, this routine sets the status 
byte in the DIFIS table to 0. A test is 
then made to determine if the PUT issued 
bit is on in the retrieval byte of the DTF 
table. If it is on, the last block of 
records is written. A test for IOAREA2=YES 
is then made. If IOAREA2 is specified as 
an ISMOD macro parameter option to allow 
overlapping of I/O with processing, a bit 
is set in the DIF table tc indicate the 
first record is being processed and a wait 
for I/O completion is made. Control then 
returns to the problem program. 


Exit: To the prceblem program via linkage 
register 14. 4 


Method: This routine initializes pointers 
to the DIFIS table, and then tests for 
ITOAREFA2=YES. If IOAREA2 is not specified 
as an ISMOD macro parameter option, a test 
is made to determine if the last record 
read was in the cverflow area. If the last 
record read was in the overflow area, the 
contents of the sequence-link field is 
moved toc the seeék/search area, and a test 
is made to determine if the end of the 
overflow chain has been reached. If it has 
not been reached, the overflow record is 
read, addresses are saved, and the record 
is moved to WORKS, if specified. Control 
then returns to the problem progran. 


If the end of the chair has been 
reached, the current disk address is 
updated to the next track and the next 
record is read. The record is moved to the 
work area, if specified, addresses are 
saved, and control returns to the problem 
program. 


If the last record read was not in the 
overflow area, the routine determines if 
all records in the block have been 
processed. If all the records in the block 
have net been processed, the I/O area 
pointer is updated to the next logical 
record. If that record is not a padding 
record, it is moved to the work area, if 


specified, addresses are saved, and control 
If it isa 


returns to the problem program. 
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padding record, the EOF indicator is set in 
the DTFIS table, and control passes to the 
problem program. 


If all records in the block have been 
processed, a check is made to determine if 
the PUT macro has been issued. If it has, 
the record is written. 


A test is made to determine if the end 
of the track has been reached. If it has 
been reached, the track index is searched 
to find the next track index entry. The 
current track index record number in the 
DTF table is then updated, and a test is 
made to determine if there is any overflow 
record indicated in the track index entry 
just read. If the track index entry 
indicates an overflow record is present, 
that overflow record is read, and moved to 
the work area, if specified. Control 
returns to the problem progran. 


If there is no overflow record indicated 
in the track index entry, the current 
address is updated by 1, and the record is 
read and moved into the work area, if 
specified. Control returns to the problen 
program. 


If IOAREA2 has been specified to allow 
overlapping of I/O with processing, a test 
is made to determine if the last record 
read was in the overflow area. If the last 
record read was in the overflow area, a 
test is made to determine if the record 
being processed by the user is an overflow 
record. If it is an overflow record, a 
wait for I/O completion is made, the next 
available I/O area address is obtained, the 
current record address is saved, and a test 
is made to determine if the first record is 
being processed. 


If the first record is being processed, 
and if track hold has been specified, the 
appropriate index and data tracks are held, 
the overflow record is read, addresses are 
saved, and the record is moved to a 
workarea, if specified. Any held tracks 
are released, and control returns to the 
problem program. 


If the first record is not being 
processed, the address of the next overflow 
record is moved to the seek/search address 
and a test is made to determine if the end 
of the overflow chain has been reached. If 
the end has not been reached, and if track 
hold has been specified, the appropriate 
index and data tracks are held, the 
overflow record is read, addresses are 
saved and the record is moved to the work 
area, if specified. Any held tracks are 
released and control returns to the problem 
progran. 


If the end of the overflow chain has 
been reached, the current disk address is 
updated to the next track and the next 
record is read. The record is moved to the 
work area, if specified, addresses are 
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saved, and control returns to the problem 
program. 


If the last record was not an overflow 
record and the current record is not an 
overflow record, this routine determines if 
all the records in the block have been 
processed. If all records in the block 
have not been processed, the I/O area 
pointer is updated to the next logical 
record and the record counter is updated by 
1. If the next logical record is not a 
padding record, it is moved to the work 
area, is specified, addresses are saved, 
and control returns to the problem progran. 
If it is a padding record, the EOF 
indicator is set in the DTF table and 
control returns to the problem program. 


When all the records in the block have. 
been processed, a check is made to 
determine if the PUT macro has been issued. 
If the PUT macro has been issued, the 
record is written. A test for the presence 
of two I/O areas is then made. If the 
presence of two I/O areas is indicated in 
the DTF table, a test is made to determine 
if the first record is being processed. If 
the first record is not being processed, a 
wait for I/C completion is made and the 
record address is saved in the DTF table. 


A test is made to determine if the end 
of the track has been reached. If the end 
of the track has been reached, the track 
index is searched to find the next track 
index entry. The current track index 
record number in the DIF table is updated. 
If HOLD is specified, the index track is 
held while a test is made to determine if 
there is any overflow record indicated in 
the track index entry just read. If the 
‘presence of an cverflow entry is indicated, 
and there are two I/O areas present, this 
routine tests to determine if this is the 
first record. If it is not the first 
record, the record counter is set to 1. 

The overflow record address is moved to the 
seek/search address, the overflow record is 
read, held if HCLD=YES is specified, and 
moved to the work area, if specified. 
Control then returns to the problem 
program. 


If there is no overflow record indicated 
in the track index entry, the*current 
address is updated by 1, the next record is 
read and moved tc the work area, if 
specified, and control returns to the 
problem progran. 


ISAM ALDRTR: PUT Macro, Chart JF 


Objective: To perform sequential retrieval 
output for an indexed sequential file. 


Entry: From the PUT macro expansion. 





Exit: To the problem program via linkage 
register 14. 


Method: After initializing pointers to the 
DTFIS table, this routine tests whether a 
GET has been issued. If a GET has not been 
issued, there is an SVC 50 (error). 
Otherwise, the GET issued switch is turned 
off and the output bit in the retrieval 
byte in the DTFIS table is turned.on. The 
record is moved from the work area to the 
I/O area, and the output bit in the 
retrieval byte is set off. 


If the record is unblocked, or is in the 
overflow area, this routine writes out the 
record and returns control to the problem 
program. If the records are blocked, this 
routine sets the bit in the retrieval byte 
to indicate that the PUT macro has been 
issued for this record, and returns control 
to the problem program. The GET macro 
routine causes the block to be written on 
DASD when it determines that all records in 
the block have been processed. 


READ Macro, KEY, Chart JG 
Objective: To perform the random retrieval 
input function for an indexed-sequential 
file by searching the indexes to determine 
the track on which the desired record is 
stored. 


ntry: From the READ, KEY macro. 


it 


xit: To the problem program via linkage 
register 14. 


ie 


Method: This routine first initializes 
pointers and status bits in the DTFIS 
table. It then constructs the CCW chain to 
search the master or cylinder index (see 
Figure 76). It then determines the highest 
level index (master or cylinder) being 
used, and tests for ERREYT=YES. If ERREXT 
is specified, additional error conditions 
can be returned to the problem program. 
This allows the user greater flexibility in 
attempting to continue processing. This 
routine then searches the highest level 
index to get the address of the next index 
to be searched. | 


A test of the F code from the index 
level pointer is made to determine if the 
next search is of the track index. The F 
code refers to the index level just 
searched. If the master index was just 
searched, the next search is on the 
cylinder index. If the next search is not 
on the track index, the routine gets the 
index entry type and determines the routine 
to process that type. 


If the entry type is a normal entry, the 
routine returns to search the next index. 
If the entry type is a dummy end entry or 
an inactive entry, the routine branches to 
an error routine to set a no-record-found 
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flag in the DTF tatle and return to the 
problem program. If the entry is a dummy 
chained entry, the routine returns to 
search the index by using the address 
supplied by the 10-byte index level 
pointer. 


When the next search is found to be on 
the track index, a test is made to 
determine if the track index. takes up one 
track or more. If the track index does not 
require a full track, the routine builds a 
new CCW chain tc search the track index 
(see Figure 77). The routine issues the 
EXCP to search the track index, and returns 
control to the froblem program without 
issuing a WAII. The WAIT function is left 
to the WAITF macro, which must be issued 
before the user can process the record. 


o, $$BSETL, Charts 


Objective: To initialize for sequential 
retrieval based on information supplied by 
the user in the SETL macro (BOF or ID). 


validates the limits of the DTFIS table and 
IOAREAS to ensure that they lie within the 
partition. $$BSETL then initializes for 
sequential retrieval based on the 
information suprlied by the user in the 
SETL macro. The SETL macro specifies the 
type of reference used to identify the 
first record to be processed. The types of 
reference ares 


1. KEY. Key of starting record in the 
file. 
2. GKEY. location of starting record in 


the file, identified by a record key 
within a desired group. The user 
supplies a key that identifies the high 
order bytes of the required group of 
keys. For example, a GKEY 
specification of D6430000 would permit 
file processing to start at the first 
key containing D643XX¥X¥, regardless of 
the characters represented by the Xs. 

3. BOF. Beginning of logical file. 

4, ID (MBBCCHHR). Location of starting 
record in the prime data area. 


S$$BSETL1. 


If sequential retrieval is to begin with 
a record associated with a particular key 
(KEY), the key of the beginning record must 
be placed in the field defined by the DTFIS 
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entry KEYARG before the SETL macro is 
issued. This phase searches the master 
index (if present), cylinder index and 
track index until it finds the track index 
entry associated with the specified key. 
It determines whether the record with the 
desired key is on a shared or unshared 
prime data track or in the overflow area. 


If the record is on a shared track, the 
search is initialized to kegin after the 
remainder of the track index has been 
bypassed. If the record is on a prime data 
track and records are unblocked, the track 
index overflow entry address associated 
with the desired record is calculated and 
stored in the DTFIS table, and the track is 
searched equal for the desired record If 
the record is not found, a no-record-found 
indicator is set in the DTFIS table 
(Filename.C). 


If the file contains blocked records, 
the track is searched equal/high for the 
desired block. The user must supply (in 
the DTFIS entry KEYLOC) the position of the 
key field in the data record. The block is 
searched. When the record with the 
matching key is found, its address is saved 
in the DTFIS table, and control returns to 
the problem program. If the record is not 
found, the no-record-found indicator is set 


in the DTFIS table (Filename.C). 


If the record with the desired key is in 
the overflow area, the track index normal 
and overflow entry addresses are stored in 
the DTFIS table, and the overflow chain is 
searched for the desired record. When the 
desired record is found, its address is 
saved in the sequential retrieval section 
of the DITFIS table. If the desired record 
is not found in the overflow chain, a 
no-record-found indicator is set in the 
DTFIS table (Filename.C), and control 
returns to the problem program. 


If GKEY was specified in the SETL macro, 
the CCW chain to read the desired record is 
modified to search key equal or high. The 
search for the desired record proceeds in 
the same manner as if KEY were specified in 
the SETL macro. However, in this case 
(GKEY), a no-record-found condition should 
not occur unless the key specified is 
higher than the existing highest key in the 
file. 


If BOF was specified in the SETL macro, 
the address of the first prime data record 
in the file is saved in the sequential 
retrieval section of the DTFIS table, and 
the track index overflow entry address 
associated with the desired record is 
calculated and stored in the DTFIS table. 
Control returns to the problem progran. 


If the starting record address is 
referenced by a symbolic name in the SETL 
macro, this phase analyzes the 8-byte DASD 
address (MBBCCHHR) in the field specified 
by the symbolic name for validity. If the 
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address is invalid, an illegal ID indicator 
is set in the DTFIS table (Filename.C), and 
control returns to the problem program. If 
the starting address is valid, this phase 
saves the address in the DTFIS table, 
calculates the track index overflow entry 


address associated with the desired record, 


stores it in the DTFIS takle, and returns 
control to the problem progran. 


In order to perform a search of the 
master, cylinder or track indexes, prime 
data area, and overflow area for the 
starting record, a CCW string is built to 
search the required areas. Figures 91-94 
give a description of the channel program 
built te perform the necessary search. 


ISAM ACDRTR: 


JL-JQ 


SETL Macro, $$BSETL1, Charts 


Objective: To initialize for sequential 
retrieval based on information supplied by 
the user in the SETL macro (KEY or GKEY). 


Entry: From $$BSETL. 


Exit: To the preblem program or to 
$$BSETL2. 


for sequential retrieval based on the. 
information suprlied by the user in the 
SETL macro. The SETL macro specifies the 
type of reference used to identify the 
first record to be processed. The types of 
reference are; 


1. KEY. Key of starting record in the 
file. 
2. GKEY. Location of starting record in 


the file, identified by a record key 
within a desired group. The user 
supplies a key that identifies the high 
crder bytes cf the required group of 
keys. For example, a GKEY 
specificaticn of D6430000 would permit 
file processing to start at the first 
key containing D643X¥¥XX, regardless of 
the characters represented by the Xs. 
3. BOF. Beginning of the logical file. 
4. ID (MBBCCHHR). Location of starting 
record in the prime data area. 


$$BSETL, 


If sequential retrieval is to begin with 
a record associated with a particular key 
(KEY), the key of the beginning record must 
be placed in the field defined by the DTFIS 
entry KEYARG before the SETL macro is 
issued. This phase searches the master 
index (if presert), cylinder index, and 
track index until it finds the track index 
entry associated with the specified key. 


It determines whether the record with the — 
desired key is on a shared or unshared 
prime data track or in the overflow area. 


If the record is on a shared track, the 
search is initialized to begin after the 
remainder of the track index has been 
bypassed. If the record is on a prime data 
track and records are unblocked, the track 
index overflow entry address associated 
with the desired record is calculated and 
stored in the DTFIS table, and the track is 
searched equal for the desired record. If 
the record is not found, a no-record-found 
indicator is set in the DTFIS table 
(Filename.C). 


If the file contains blocked records, 
the track is searched equal/high for the 
desired block. The user must supply (in 
the DTFIS entry KEYLOC) the position of the 
key field in the data record. The block is 
searched. When the record with the 
matching key is found, its address is saved 
in the DTFIS table, and control returns to 
the problem program. If the record is not 
found, the no-record-found indicator is set 
in the DTFIS table (Filename.C). 


If the record with the desired key is in 
the overflow area, the track index normal 
and overflow entry addresses are stored in 
the DTFIS table, the appropriate index and 
data tracks are held, and the overflow 
chain is searched for the desired record. 
When the desired record is found, its 
address is saved in the sequential 
retrieval section of the DTFIS table. If 
the desired record is not found in the 
overflow chain, a no-record-found indicator 
is set in the DTFIS table (Filename.C), the 
held index and data tracks are released, 
and control returns to the problem progran. 


If GKEY was specified in the SETL macro, 
the CCW chain to read the desired record is 
modified to search key equal or high. The 
search for the desired record proceeds in 
the same manner as if KEY were specified in 
the SETL macro. However, in this case 
(GKEY), a no-record-found condition should 
not occur unless the key specified is 
higher than the existing highest key in the 
file. 


If BOF was specified in the SETL macro, 
the address of the first prime data record 
in the file is saved in the sequential 
retrieval section of the DTFIS table, and 
the track index overflow entry address 
associated with the desired record is 
calculated and stored in the DTFIS table. 
Control returns to the problem progran. 


If the starting record address is 
referenced by a symbolic name in the SETL 
macro, this phase checks the validity of 
the 8-byte DASD address (MBBCCHHR) in the 
field specified by the symbolic name. If 
the address is invalid, an illegal ID 
indicator is set in the DTFIS table 
(Filename.C) , and control returns to the 
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problem program. If the starting address 
is valid, this phase saves the address in 
the DTFIS table, calculates the track index 
overflow entry address associated with the 
desired record, stores it in the DTFIS 
table, holds the required index and data 
tracks, and returns control to the problem 
program. . 


Before I/O is performed, a switch is 
tested to see if track hold has been 
specified. If it has, the data track(s) 
and the corresponding index track(s) are 
held until I/7O is complete. If any error 
conditions occur (for example, no record 
found, wrong length record, or a DASD read 
error), any held tracks are freed before 
returning to the user. 


In order to perform a search of the 
master, cylinder, or track indexes, prime 
data area, and cverflow area for the 
starting record, a CCW string is built to 
search the required area. Figures 91-94 
give a descripticn of the channel program 
built te perform the necessary search. 


of the [TF, to free or hold tracks as 
required, and tc return control to the 
user. 


Entry: From $$BSETL1. 


no I/O errors have been detected. The 
initialization cf the DTF is completed for 
sequential retrieval starting with the 
specified key or low key in a group of 
keys. If HCLD=YES is specified in the DTF, 
the index track and the data track are held 
until exit, when the index track is freed. 
The data track is freed by the module. If 
an error occurs, the proper error bit is 
posted in Filename.C and exit to the user 
is made after freeing all held tracks. 


ISAM ACURTR: WAITF Macro, Charts KA-KE 


Objective: 


1. To ensure that the last FXYCP issued has 
been completed and that the condition 
is normal. 


2. If the operation is a READ, to locate 
the specified record and to complete 
the transfer of data to the I/O area 
specified by the DTFIS entry IOAREAR, 
and to the specified work area if. the 
DTFIS entry WORKR is included in the 
file definition. 


3. If the operation is a WRITE (NEWKEY) 
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to complete the addition of the record 
to an indexed sequential file, 
adjusting the indexes and other records 
as necessary. 


4. If the operation is a WRITE (KEY), to 
return control to the problem progran. 


it 


ntry: From the WAITF macro expansion. 


Exit: To the problem program via linkage 
register 14. | 

Method: This routine first tests for 
ERREXT=YES. If ERREXT is specified, 
additional error conditions can be returned 
to the problem program. This allows the 
user greater flexibility in attempting to 
continue processing. After initializing 
pointers to the three sections of the DTFIS 
table,’this routine tests the status byte 
in the DTF table to determine if the 
condition so far is normal. If not, 
control returns to the problem progran. 


If the condition is normal, the routine 
issues a WAIT to determine if the EXCP 
issued by the READ or WRITE routines has 
been completed, and also tests for errors. 
Then, if the operation is a WRITE (KEY), 
this routine returns control to the problem 
program. 


If the operation is a READ, this routine 
must complete the READ operation by moving 
the data to the I/O area. If first sets 
the address of the track on which the 
desired record is stored in the seek/search 
area, and initializes pointers to KEYARG 
and the I/O area. It also gets the 
relative key location and key length. 


The routine picks up the index entry 
type (F code) from the search address and 
determines the routine to process that 
type. If the entry is a normal entry on an 
unshared track, a new CCW chain is built to 
find the record in the prime data area (see 
Figure 78). If blocked records are 
specified, the CCW command code is modified 
to search high or equal. An EXCP and WAIT 
are issued to find the record and read the 
block into the I/O area. If records are 
unblocked, the record is moved into WORKR 
(if specified), and control returns to the 
problem program. If records are blocked, 
this routine tests to determine if the key 
specified in KEYARG is less than the key in 
the first logical record. If so, the 
record has not been found, and the 
corresponding bit is set on in the DTF 
table. Otherwise, the corresponding key is 
found within the block and the routine 
moves the block to WORKR, if specified. 
Control is then returned to the problem 
program. 


For a normal entry on a shared track, 
the routine decreases the record number in 
the search address by 1, and builds a new 
CCW chain to find records on a shared track 


Licensed Program - Property of IBM 


(see Figure 79). Processing continues as 
in the routine tc process a normal entry on 
an unshared track. 


If the entry is an overflow end entry or 
an overflow chained entry, this routine 
first constructs a CCW chain to search the 
overflow chain. An EXCP and a WAIT are 
issued to locate the record in the overflow 
chain. A test is made to determine if the 
desired record has been fcund. If not, the 
routine tests for a overflow end entry. If 
so, the no-record-found bit is set on in 
the DTF table. If the entry is not an 
overflow end entry, the sequence-link field 
is inserted in the seek/search address, and 
the overflow chain is searched again. 


If the record has been found, overflow 
bits are set on in the DTF table, and the 
first nonoverflcw record count is increased 
by 1. The logical record is moved to 
WORKR, if specified. Control returns to 
the preblem program via register 14. 


If the entry is a dummy end entry or an 
inactive entry, the routine sets a 
no~record-found bit on in the DTF table, 
and returns control to the problem progran. 


If the operation is a WRITE (NEWKEY), 
this routine determines the type of add | 
functicn to he performed. The three types 
of add functions are: 


e Normal add te the prime data area. 
e Add to the overflow area. 


e EOF add. 


Normal Add to the Prime Data Area: This 
routine first determines if the record is 
to be added to the last prime data track. 
If it is and the last prime data track is 
full, the overflow record address is 
calculated, an EXCP (see Figure 85) is 
issued to search and read the prime data 
track to determine the point of insertion, 
and a wait for I/O completion is made. 
Figures 76 through 111 describe the channel 
program builder for the ADDRTR function. 
If the addition is not on the last prime 
data track, the overflow record address is 
calculated and the prime data track is 
searched to determine the point of 
insertion for the record to be added to the 
file. When an equal/high key is found 
during the search, the ccunt and data 
fields of that location are read into a 
save area in the DTF table and IOAREAL 
respectively. 


A test is made to determine if the prime 
data in core option was specified as an 
ISMOD macro parameter. If it was 
specified, as many records as can fit into 
the I/O area specified in the DTFIS operand 
IOAREAL are read from the prime data track 
into main storage. The key of the record 
to be added is ccmpared to the keys of the 


existing records in the I/O area. Ifa 
duplicate key is found, the condition is 
indicated to the user in the DTF table 
entry labeled Filename.C. If no duplicate 
key is found, the records are shifted in 
main storage leaving the record with the 
highest key remaining in the user's work 
area, WORKL. The other records are | 
rewritten directly onto the track. Any 
remaining records on the track are then 
read into the I/O area. The process 
continues until the last record on the 
track is set up as an overflow record. 

When the last prime data record on the 
track has been rewritten, the new overflow 
record is written in the overflow area, the 
track index normal and overflow entries and 
the COCR are written on DASD, and control 
returns to the problem program. 


If the prime data in core option has not 
been specified as an ISMOD macro parameter, 
a test for blocked reconds is made. If the 
file contains unblocked records, the record 
previously found on the search key : 
equal/high is reread to get the key field. 
If it is a duplicate key, a switch is set 
on in the DTFIS table indicating a 
duplicate key has been sensed and a return 
to the problem program is made. If there 
are no duplicate keys, the user's key and 
data are written from the work area, WORKL, 
onto the DASD file. The record in the I/0 
area, IOAREAL, replaces the user's record 
in the work area. The next record on the 
track replaces the one in the I/O area. 
This process is repeated until the end of 
track is reached. | , 


If the end-of-file (EOF) record is read 
during the process of shifting the records 
over one record position, this routine 
writes the last record over the EOF record 
and then writes a new EOF record (see 
Figures 84, 92, 93). 


If the file contains blocked records, 
this routine reads the block of records (or 
as many as fit in the I/O area if IOAREAL 
was increased for reading and writing more 
than cone record at a time) into IOAREAL. 
The key field within each logical record is 
analyzed to determine the correct position 
in which to insert the new record. If 
there is duplication of keys, a switch is 
set on in the DTFIS table and control 
returns to the problem progran. 


If the key of the record to be inserted 
(contained in WORKL) is low, it is 
exchanged with the record presently in the. 
block. This procedure continues with each 
succeeding record in the block until the 
last record is moved into the work area. 
The key field of the DASD record is then 
updated to reflect the highest key in the 
block. If the size of IOAREAL has been 
increased, succeeding blocks in the I/0 
area are also updated. The block (or 
blocks) is then written back onto DASD. 
The remaining blocks on the track are 
similarly processed until the last logical 
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record on the track is moved into WORKL. 
This record is then set up as an overflow 
record with the correct sequence-link field 
added and written in the overflow area. 

The sequence-link field for the new 
overflow record is taken from the track 
index overflow entry. The indexes are 
updated, and cortrel returns to the problem 
program for the next record to be added. 

If the overflow area is full, this 
information is indicated to the user in the 
DTF table entry labeled Filename.C. 


The track index normal entry key field 
is updated to the key of the new last 
record, the track index overflow entry data 
field is updated tc the address of the new 
overflow entry (that entry has the lowest 
key for the overflow for that track), and 
the COCR is updated. These records are 
written on the DASD file before control 
returns to the problem progran. 


a 

If the last block in the prime data area 
is padded, the last. record to be shifted is 
included in that block. If the EOF record 
is read during the process of shifting the 
records one record position, the last 
record is written as a new block and a new 
EOF record is written before returning 
control to the problem progran. 


Add to the Overflow Area: This routine 
computes the new overflow record address 
and reads the overflow chain to get the 
address of the record with the next highest 
key. This address is stored in the 
sequence-link field of the new record. The 
new overflow reccrd is then written in 
either the cylinder overflow area or 
independent overflcw area (see Figure 91). 
If these areas are full, this condition is 
indicated to the user in the DTFIS table 
entry labeled Filename.C. Each time an 
overflow record is added to the independent 
overflow area, an EOF record is written to 
Maintain the integrity of the indexed 
sequential file (see Figure 94). The next 
overflow record followed by an EOF record 
overlays the previous FOF record. 


If the new overflow record has the 
lowest key in the overflow chain, its 
address is used to build a new track index 
overflow entry. The new overflow entry is 
then written on the DASD file, and control 
returns to the problem program. If a 
cylinder overflcw condition occurs, the 
updated COCR (cylinder overflow control 
record) is written on DASD before control 
returns to the problem prcgran. 


If the new overflow record does not have 
the lowest key, the sequence-link field of 
the record with the next lower key is 
updated to contain the address of the new 
overflow record. This overflow record is 
then rewritten cn DASD and the COCR is 
updated (see Figures 88-90). Control 
returns to the problem progran. 
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EOF Add: This routine first determines if 
the Last prime data track is full. If the 
last prime data track is not full, the new 
record is inserted on it. If the file 
contains blocked records and the record can 
fit in the last block, the block is read 
and the new record is inserted. 


If the file is not blocked, or if it is 
blocked and the last block is full, a new 
last prime data record address is stored 
and the new record is written at that 
address. A new EOF record is then written. 


If the last prime data track is full, 
the new record is inserted in the overflow 
area. The new overflow record address is 
computed and the record is written in the 


overflow area. 


If an overflow chain is present, the 
next lower record in the chain is found and 
the address of the new record is moved to 
the sequence-link field of the next lower 
record. 


If no overflow chain is present, the 
address of the new overflow record is moved 
to the track index overflow entry. The 
track index overflow entry is then written 
with the new high key. The master index 
(if present) and the cylinder index are 
updated with the new high key. A test for 
the cylinder index in core option is then 
made. If it has not been specified, 
control returns to the problem program. If 
the cylinder index in core option has been 
specified, the new key is inserted into the 
appropriate index in core entry before 
returning control to the problem program. 
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2288 AVVRIR: WRITE Macro, KEY, Chart KF 
Objective: To perform the random retrieval 
output function for an indexed sequential 
file. 


Entry: From WRITE, KEY macro expansion. 
Exit: To the problem program via register 
14. 


Method: This routine first sets the write 
bit in the DTFIS table. . If then tests for 
an uncorrectable DASD error, wrong length 
record error, or no record found error. If 


any of these errors exist, the 


no-record-found bit is set on in the DTF 
table, and control returns to the problem 
program. 


If there are no errors, the status byte 
in the DTF table is reset, and pointers to 
the DTF table are initialized. This 
routine then picks up the count field of 
the record as saved by the read routine, 
the address of WORKR, and the address of 
the logical record within the I/O area. 
The record, or block of records, is moved 
to the I/O area from WORKR (if specified). 
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The CCW chain to write records is then 
built (see Figure 81). 


If the entry to be written is not an 
overflow entry, the byte count field in the 
write and verify CCWs is modified to the 
block length from the DTF table. This 
routine then issues the E¥YCP to write the 
record, and returns control to the problem 
program without issuing a WAIT. The WAIT 
function is left to the WAITF macro, which 
must be issued before the user can continue 
processing. 


ISAM ALDRTR: WEIT 


| Macro, NEWKEY, Charts 


Objective: To perform the necessary 


initialization to add a record to a file. 


Entry: From the WRITE, NEWKEY macro 
expansion. 


Exits: To the prcblem program via linkage 
register 14. 


the three parts of the DTFIS table, this 
routine gets the starting address of the 
highest level index, builds a CCW chain to 
search the highest level index (see Figure 
82) and tests for ERREXT=YES. If ERREXT is 
specified, additional error conditions can 
be returned to the problem program. This 
allows the user greater flexibility in 
attempting to ccntinue processing. The 


channel program is executed and a wait for - 


I/O completion is made. It then tests the 
F code of the irdex level pointer to 
determine if the next search is of the 
cylinder or track index. The F code refers 
to the index level just searched. If the 
master index was just searched, the next 


search is on the cylinder index. See 
Figure 20 for a description of the F code. 


If the F code indicates a dummy chained 
entry, the search of the master, cylinder 
or track index continues. If the index 
level pointer did not indicate a dummy 
chained entry, a test for an inactive or 
dummy end entry is made. If an inactive or 
dummy end entry is indicated, the EOF add 
indicator is set on in the DTFIS table, a 
CCW chain is built to read the last track 
index entries, the channel program to 
bypass the last of the track index entries 
is executed, a wait for the I/0 operation 
to be completed is made, and control 
returns to the problem program. Processing 
continues with the record following the 
last key. 


If an inactive or dummy end entry is not 
indicated, a test for the presence of a 
master index is made. If the master index 
is not present, indicating the cylinder 
index was just searched, a search of the 
track index is performed, and a return to 
the problem program is made. 


If the master index is present, a test 
is made to determine if the cylinder index 
in core option was specified as an ISMOD 
macro parameter. If it was not specified, 
an EXCP is issued to search the cylinder 
index, followed by a wait for I/0 
completion, an EXCP to search the track 
index, a wait for I/O completion, and a 
return to the problem program. If the 
cylinder index in core option was 
specified, a search of the track index is 
performed, and a return to the problem 
program is made. 


Any tracks which have been held during 


update are released before control returns 
to the user. 
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| Rego pe gee ee ae ee Pg ee epee Ee eg et = ee eas aria | 
| CCW Builder | iy | | 
|Control Code?| CcW Built | Function | 
SSS = ——- SS ——= ——— | 
{ 7461 |X¥'69", &EKEYARG, CC and |Search key equal or high the master/ | 
| |SLI, Key Length jcylinder index. Key supplied by user in | 
{ 


| _ - [the DIFIS table. 















Nn I NMS OIL NIH HHS PARR KIIR MMO R MC LCH 


' {Read ho . 
Jretrieval work area in 





RTE OTTO T TUT eT eT eee TTT eT 


arcetanete 
sosecetens 
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See whee Ci tees 
‘ 2 rereccennotte $6 iSetatece SS 

































































{ 
| }X¥'92", SIOAREAR, CC and |Read count (multiple | 
| |SLI, 10 | | 
(S324 = —- | ee ae ee —| 
{ 7461 |X'69", &SKEYARG, CC and SLI, |Search key equal or high the master/ | 
| {Key Length |cylinder index. Key supplied by user in { 
l r |DTFIS table. 
SSS SS aaa NA aaris! aE aS SSS a 
| O4EB {x'O8', Pointer to *-16, CC |TIC to *-16. | 
jand SLI, 5 | 
(SoS SS Se SC ae ae ——| 
[ 110C 1X¥'O06', 2&Filename.W, 00, 10 {Read data (10-byte index level pointer) | 
] | | {into random/sequential retrieval area in | 
| | {| DTFIS table. | 
Oe i i cate cosas cme ct Sa sla so sale pcs pas i sis cs is ha le sil cl eect See cp nc Ss ls lar ml ii eis i asi a ci a gp cncseaall 
1-~-8 See notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 76. Charnel program builder for ADDRTR -- CCW chain built to search 
waster-cylinder index for random retrieve function. 

(Se Se ee eer ee ee eee 
{CCW Builder | | | 
jControl Code! CCW Built | Function | 
(SS a Se SS | 
D36B |¥'1A', SICAREAR, CC and SLI, |Read home address into IOAREAR. | 


m 
f xB 





9461 |¥'EO"', GEKEYARG, CC and SLI, |Search key equal or high (multiple-track) | 




















|Key Length Jtrack index. Key supplied by user in DTFIS] 

| |table. 

SS SS SS SS = 
O66B 1X¥'O8', Pointer to *-8, CC {TIC to *-8. | 
Jand SLI, 5 { | 
Ta, a a a Sa ae ee a == =| 
110C {X'06', 2&§Filename.W, 00, 10 |Read data (10-byte index level pointer) | 


| {into random/sequential retrieval area in | 
| |DTFIS table. | 


nn ces sees ere cate ere cee ne cms ei sense rte <e es a mn i a nn a a a rn er ae re er a a ce en nc a cc a nce eel 
1--8 See notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 


Figure 77. Channel program builder for ADDRTR -- CCW chain built to search track index 
for random retrieve function. 
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i rn ee pe ge IE Oe pe Te Pee See aN eGR ag me Ee MEE Ee EE ee a ee Re P| Te Se dT OD ae fp MPa ee Se ee Ser reel 
{CCW Bfilder | [ | 
jContrcel Code! | CCW Built | Function { 
Se a a eS | 
| 7461 1X'69", EKEYARG, CC and {Search key equal or high in prime data ] 
{ |SLI, Key Length Jarea. Key supplied by user in DTFIS table. | 
(SS SS SS SSS a a | 
{ OC4B 1¥'O8', Fointer to *+16, {TIC to *+16. | 
{ jcc, 5 { | 





























f : : 

{ D17B {X'1A", 2&Filename.wW, CC, jRead heme address into random/sequential | 
| |SLI, and SKIP, 5 Jretrieval area in DTFIS table. { 
(SSS SS eS SS eee So SS i 
| 406C }X¥'12', 2&Filename.S+3, CC jRead count into common seek/search area. | 
| fand SLI, 10 | fin DTFIS table. | 
ee ee 
| 646€1 {X'29" or X'69', EKEYARG, j}If records are unblocked, search key equal | 
j or 1CC and SLI, Key Length Jin prime data area. If records are | 
i 7461 { |blocked, search key equal or high in prime | 
| [ jdata area. Key supplied by user in DTFIS | 
{table. 
SS SSS SS ne eer ne ee emer | 
i O44B {xX'08", Pointer to *-16, |TIC to *-16. 
i jCC, 5 | | 
(SSS S SS ee os SS re 
; 1302 1¥'06"', &IOAREAR, 00, Block }Read data (block) containing starting [ 
| {Length | }record into IOAREAR. . | 
cm i ss tcc tn i si se ts Ss Sidr eo ep ema ei sas ops ae tn cue a a lig a a a ie a ie ce ig lis ies ei cg 











1--8 See notes 1 through 8 in Figures 110 and 111. 


Figure 78. Channel program builder for ADDRTR -- CCW chain built to find record in prime 
data area (unshared track) for random retrieve function. 


ICCW Builder | | | { 
jControl Code! CcW Built 4, Function | ] 




































f . oS ee oy 
i 804B [X'31', 2&Filename.St+3, CC, 5 |Search identifier equal the prime data area] 
i | | fusing the pointer (CCHHR) in the common | 
| | jseek/search area in the DTFIS table. | 
| -——-—---—-——- |} + - —— ef SS SS 
| O64B {X*O8", Pointer to *-8 CC, 5 {TIC to *-8. i 
(2S SS aaa ae acre aa eae [ 
{ 4O6C jX'12", 2&Filename.S+3, CC |Read count into common seek/search area | 
( jand SLI, 10 | jin DTFIS table. { 
| ---—__-_-_—__- | -__ Of er enn erence eee can ene rrr | 
| 6461 ‘|Z%'29" or X'69', EKEYARG, {If records are unblocked, search key equal | 
| or }cC and SLI, Key Length — {the prime data area. If records are [ 
{ 7461 { jblocked, search key high or equal the prime| 
[ | | jdata are. Key supplied by user in DTFIS | 
a aca oaaaaa SS SS oe 
| 0448 1X'O8"', Pointer to *-16, | 1 
| fcc, 5 | [ 
| -—--—_--—__-_-_—_| --_-_-___ rn Se 3 | 
{ 1302 1X'O6", EIOAREAR, 00, {Read data (block) containing record into | 
| |Block Length | TOAREAR. | 


| 
L 








We re ee as ae es a ee or CRIED | 


1--8 See notes 1 through 8 in Figures 110 and 111. 





Figure 79. Channel program builder for ADDRTR -- CCW chain built to find record in prime 
data area (Shared track) for random retrieve function. 
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eke oe 
{CCW Builder | | { 
{Control Code! CCW Built 2 j 



























































speshenantesess se oe _ ee oe — as : oe ereee = mA: eee tee 
oe ee ee.  . . — — o oy 
| nar eae 2¢Filenane. S+#3,. CC, 5 recaneh identifier equal the Breet ioe eras i 
{ | Jusing the pointer (CCHHR) in the common | 
| | jseek/search area in the DTFIS table. | 
|----——-————-—-—}-—-——- Se See = == | 
[ O64B 1X'O08', Pointer to *-8, CC, 5 |TIC to *-8. | 
| —-_—_--------------—--- ———-----—---- —-—-----—---—---- —---——------—-—- | 
| 6461 {X¥'29', &KEYAPG, CC and |Search key equal the overflow chain. ( 
|SLI, Key Length {Key supplied by user in DTFIS table. | 
| -------—-—-—--—--+-—— ——— SS —_+— — Sen a —— | 
116C 1x'06', 26Filename.W, SLI, 10 |Read data (10-byte sequence link field) | 


| 

( | jinto random/sequential retrieval area in | 
| | |DTFIS table. This CCW is executed when the| 
| | {required overflow record is not found in | 
| | {the overflow chain. 

| 














| 
=== —— ——SS —— | 
] 1303 1X¥'O06", SIOAREAR, OO, j|Read data (sequence link field plus f 
; {Record Length + 10 Jlogical record) into IOAREAR. This CCW is | 
; | Jexecuted when the matching key is found in | 
| | jthe overflow chain. | 
Ai eens cba aceaen iii wi i cm iis ii i ll hide aici oe sce de i ic em ase ane | 























1--8 See notes 1 through 8 in Figures 110 and 111. 


(= 


ote: The shaded areas indicate CCWs built for RPS only. 


Figure 80. Channel program builder for ADDRTR -- CCW chain built to find record in 
overflow chain for random retrieve function. 





cate ETO eneD ame ane ae eon cams te 














oe 
{CCW Builder | | | 
{Control Code! CcW Built { Function | 





80 4B 1X'31'” 26Filename. 5+3, CC, 5 iSeacch identifier equal prime data area 


| Jusing pointer (CCHHR) in common seek/ 
| |search area in DTFIS table. 









































———4--—~— a est te cen reset Aan OS SENSED aa OP AES ASSETS IND one. 
O64B [X¥'08", Pointer to *-8, CC, 5 |TIC to ¥-8. 
== =e Sa oa = = SS ee 
B3C3 1X'05', GSIOARFAR, CC, Record |Write data from IOAREAR. 
jJLength + 10 | 





804B {X¥'31, 26Filenane. 543, ce, 5 rseatoh identifier qual. the prime dats 
| jarea, using pointer (CCHHR) in common 


























l 
I 
| | |seek/search area in DTFIS table. 
[ 
| 
























































| 

[ 

| | 

== --——}-—----- —_—— ef SS = | 

O64B {X¥'08', Pointer to *-8, CC, 5 {TIC to ¥*-8 | 

Sates potas en ates cs ne ee Seed anes aee eee 

; 1333 |X'06", GSIOAREAR, SLI and {Read data to verify record just written. i 

i |SKIP, Record Length + 10 |Information is not transferred to main | 

| | |storage. | 

Caius li ce et ce a a ae Sic sateen eins ee incl 

i--8 See notes 1 through 8 in Figures 110 and 111. 

Notes The shaded areas indicate CCWs built for RPS only. 


Figure 81. Channel program builder for ADDRTR -- CCW chain built to write record for 
random retrieve function. 
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a Sear ne en aye er 
{CCW Builder {| | | 
{Control Code? . CCW Built | Function ; 
—_— te —-+--- _--—— —_ | 
| 7961 |X'69", EKEYARG, CC and SLI, |Search key equal or high the master/ | 
i | Key Length jcylinder index. Key supplied by user in | 
| | {the DTFIS table. 7 | 
(St a= —{—— —— ———— I 
| OC6B }X¥'O8', Pointer to *+16, CC {TIC to *+16. { 
| jand SLI, 5 | | | 
D17B {|X'1A', 26Filename.D+8, CC, iRead home address into otk area for ] 
{SLI and SKIP, 5 Jthe current track index normal entry count | 
| . j|field in the DTFIS table. { 
<_< ee ce te mere an nat ee ef ee awe enw eens annenmewan eaters a 
S-TEC {X¥'92", 26Filename.D+8, cc {Read count (multiple-track) into work 
fand SLI, 10 jarea for the current track index normal 




















[ 
( 

| 

i 

| 

{ | jJentry count field in the DTFIS table. 
{ 

{ 

| 

( 

{ 

{ 

I 

















| 

| 

| 

| 

Se ef i aa ea | 

7961 1X'69", EKEYARG, CC and |Search key equal or high the master/ | 

{|SLI, Key Length jcylinder index. Key supplied by user in | 

| {the DTFIS table. . | 

SS a ——= SS SS | 

O4EB 1xX'O8', Pointer to *-16, CC |TIC to *-16. | 

fjand SLI, 5 |. | 

|-—---—--—-—_-—-—-}— = Se = cma [ 

| 150C (X'O6", 2&Filename.D+40, 00, {Read data (next 10-byte index level | 

| 110 | Jpointer) into work area for track index | 

| | jnormal entry data pone in DTFIS table. | 

Leow ow one ww oe ee ew ewe we we oe oe wee ee ww we ww ww ww ww wwe ow ew ow wwe ow we oe we ow ww we mew ewe aw ae om aw J 
at -- 8 See nctes 1 through 8 in Figures 110 and 111. 


Note: The shaded areas indicate CCWs built for RPS only. 


Figure 82. Charnel program builder for ADDRTR -- CCW chain built to search master 
cylinder index for add function. 
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: A 
{CCW Builder | | 


| | 
{Control Code!| CCW Built | Function | 


TIES EE LEER FEL LOC LLS CLES TTA LED TELE ELS LTS OED PPT LIE ALES LD EL LEAL CATT ERE IE AIS LIT I ETE LOIS aa a cee rT) | 









































































































j 8C 4B {X'31', 2&Filename.S+3, CC, 5 |Search identifier equal the track index i 
{ ; | : |seek/search area. | 
| a nf nnn aa == cn ec nee ea ame | 
| 066B 1X'O08*, Pointer to *-8, CC {TIC to *-8. | 
" Jand SLI, 5 | " i 
|--— So aS = se ——| 
| 106C 1X'O06", 26Filename.D, CC and {Read data (COCR record) into the cylinder | 
( |SII, 10 3 joverflow record (COCR) area. | 
SS ee a —— | 
| E1EC |X'92', 2&Filename.D+8, CC }Read count (multiple-track) into work | 
| jand SLI, 10 Jarea for the current track index normal | 
| | wi jentry count field in the DTFIS table. | 
| -_--___- -_____- _—_| -_ Onn arene : —_———————— | 
{ 7941 1X¥*69", &EKEYARG,CC, {Search key equal or high the track index. | 
| | Key Length |Key supplied by user in the DTFIS table. | 
| a SC ca meee | 
| O46B (X'08', Pointer to *-16, CC |TIC to *-16. 
| jand SLI, 5 { | 
a rteenentcern cme nem eee te ee SS So cree we ence cre remierennaa —— | 
{ 156C |X¥'06", 2&Filename.D+40, CC {Read data (next 10-byte pointer to prime | 
; jand SLI, 10 {data record) into work area for track index| 
| | |normal entry data field in DTFIS table. | 
|--------—— = Se ———— | 
{ 526C {X¥'92', 2&6Filename.D+16, CC jRead count (multiple-track) into work | 
| jand SLI, 10 jarea for current track index overflow entry| 
] | {count field in DTFIS table. | 
| -------—__----_-_+-------—__-_- _-_- ——— oem meonemceiemeeennmemweniam | 
| 1D0C {X'06", 2&Filename.W, 00, 10 |Read data (10-byte overflow entry) into | 
| { |random/sequential retrieval work area. | 
a a ae PE ee te ne er ee ee aCe ae ET 














a 


i -- 8 See nctes 1 through 8 in Figures 110 and 111. 


= 


ote: The shaded areas indicate CCWs built for RPS only. 


Figure 83. Channel program builder for ADDRTR -- CCW chain built to search track index 
for add function. 





 aaiaaeiaestaeataaeatead 


{CCW Builder | | | 
IControl Code!] CCW Built | Function | 


iS steasrroeensetonureteetotetsereenosreseseearnee ee enee 











































| 8C 4B {X'31', 2&6Filename.S+3, CC, 5 |Search identifier equal for the last prime | 
{ | jdata record address using pointer, CCHHR, | 
i { Jin common seek/search area in DTFIS table. | 
SS ——— | —-————— <= nnn | 
| 066B {X'O8', Pointer to *-8, CC {TIC to *-8. | 

Jand SLI, 5 
——— a a eC Se ae ———— Sa ara a | 
; 342c {X'10', 2&Filename. D+32, {Write count, key and data of EOF record | 
| |SLI, 10 Jlocated in current overflow record count | 
{ | | |field in DTFIS table. | 
Ne ee kc cha Si gS ie Se SR ct i a tie age i te i a ce eS 


a -- 8 See notes 1 through 8 in Figures 110 and 111. 
Note; The shaded areas indicate CCWs built for RPS only. 


Figure 84. Channel program builder for ADDRTR -- CCW chain built to write new EOF 
record for add function. 
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CCW Built Function ] 
SE 
= 3 Peek poe: ae B Se = : ee Be SO 


ee ss = 3 eee oe : 
|Search identifier the prime data area using| 


|pointer, CCHHR, in common seeK/search area | 
fin DTFIS table. 
















































































| 
== SS ne ae SS —— [ 
| 066B 1X'08", Pointer to *-8, CC  £|TIC to *-8. sf ] 
i jand SLI, 5 a 
| --—----+--—_-- -—-} ----_——-—— . = == SS = ee | 
| 436C {X¥'12*, 2§Filename.D+24, CC {Read count for current prime data =| 
i jand SLI, 10 | record. | | 
SS core et Te ———— i 
{ 7941  $X¥'69", &EKEYARG, CC, Key | {Search key equal or high the prime data | 
[ [Length | | Jarea. Key supplied by user in DTFIS table.| 
| ---~+—-—-—_——--—--+ nn a ac ce ml ee ————-—— _ i 
{ O4EB  |x'O8t, Pointer to *-16, CC {TIC to *-16. | 
[and SLI, 5 | | | 
daca aaa ‘Oca na Te Se = ——— = Se 
| 1B02  ~X'06"', Address of IOAREAL+8 |Read data (prime data block) into | 
| {+KEYLEN, 00, Block Size {IOAREAL+8+Key Length. | 
Me sas ie ci tls ep ec a i ne oe ay i ee i se ei i ce el ce eimai Se aie sei cin i cen ph ne pip nh Sc lemon ances 





1 -- 8 See notes 1 through 8 in Figures 110 and 111. 


/ 


Note: The shaded areas indicate CCWs built for RPS only. 


Figure 85. Channel program builder for ADDRTR 
record for add function. 


- CCW chain built to find prime data 
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OED AS CE EPL ET ) ES ATED ES SUDA SD AES CESS TD SOD eee Se ee ee 


pociesesaiae 
{CCW Builder | i | { 
{Control Code!| Function | 


SUSIE ADE SERRE ODED IRE sabes eres: 
BS Oe : oe | 
ee Sees Sire 
Sonera Seis 


5 SOR. 
: 






|. seems res saaseecomeniaee 9 
sues es oe 








tet 










































| | 8C4B (x 3T"; ilename.S+3, CC, 5 |Search identifier equal the track index | 
i | jusing pointer, CCHHR, in common seek/ | 
] | | {search area in DTFIS table. ; 
SS saiacsiar aca Sanam eases SIS SS acres ; 
{ O66B 1X¥'O8', Pointer to *=-8, CC jTIC to ¥*-8. | 
| jand SLI, 5 | | 
SS Sr aR SS ca ene ag ——| 
; BO6C {X"O5", 2&6 Filename.D, CC and jJRewrite COCR located in cylinder overflow | 
| {SLI, 10 J|control record work area in DTFIS table. | 







SOR 


x) 
*% © 
of 


es 






















































































ea AMR RN KINKI WA tt NUS SIT WN EN 
veh itanereeate, Necraretet reco cotntetototeratotnrovocneisetosstete 

eeetrseneteaeterat esrenaeataPnsnretoPonate tatanetetetet 
Paaharenenecs Se so s 


RIK. 
anaes 


| | Jentry required. 








—,r—“‘“‘—OCOCOCOCS~S~—<‘<CsC<—<=Ci - _. 

{ E14B {X'*B1', 2&§Filename.D+8, {|Search identifier equal (multiple-track) ; 
| jcc, 5 jfor the pointer, CCHHR, in the normal | 
| | jentry count field. | 
| ——-------——--- ++} -—— = ——S- eer merce eee cere an er cemancmnince 
| 066B {X'O8', Pointer to *-8, CC {TIC to *-8. | 
| Jand SLI, 5 | { 
|---------——-_-_-|------ a ee ———= . —— | 
( 2A45 |X"'OD"', Address of {Rewrite track index normal entry located | 
| | IOAREAL+8, CC, Key Length jat IOAREAL+t8. | 
| [+ 10 | | 
| —-------—-—-—-----+---—------ Seen ef ne SS ee ———— | 
{ E24B {X'*B1', 2&6Filename.D+16, CC, 5 |Search identifier equal (multiple-track) { 
| | }for the pointer, CCHHR, in the overflow | 
| | Jentry count field. | 
| en nf SSS SS ao | 
| 066B 1X'O08', Pointer to *-8, CC j|TIC to *-8. | 
| jand SLI, 5 | | 
| -—---_--—_-—-——_—_+--——— SS een ——|— Se —S — | 
{ BDCC {X¥'O5", 2&Filename.W, CC and [Rewrite overflow entry located in random/ | 
| jDc, 10 |sequential retrieval work area. | 
|-—----_---_-- -—-- + -------—_-----__—_---———- mene emnnfome = SS | 
| F251 |X'23", SECARG=2, CC, 18 |Set Sector for the track index overflow | 
| 

sl 

=| 









































| 
| jcc, 5 |CCHHR, in the overflow entry count field. | 
(SSS —= a Se ==] 
| 066B 1¥'O08', Pointer to *-8, CC [TIC to *-8. | 
| Jand SLI, 5 | 
| --------—----—-+----------—— come aun Sones RAINES eS a ——— =| 
| 1ID3c 1X'O6", 2&Filename.W, SLI and {Read data to verify record just written. | 
| {SKIP, 10 {Information is not transferred to main | 
| | |storage. | 
_ 























t -- 8 See nctes 1 through 8 in Figures 110 and 111. 


te 


Ote: The shaded areas indicate CCWs built for RPS only. 


Figure 86. Channel program builder for ADDRTR -- CCW chain built to rewrite track index 
entry for add function. 
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eae 
iCCW Builder | | 


{Contrel Code? | CCW Built | Function 






] 8C 4B [X'13", 2&Filename.S+3, CC, 5 |Search identifier equal for RO using | 
i | : |pointer, CCHHR, in common seek/search area | 
| | jin DTFIS table. 


ee nee eco ee fanaa 

















| —----_------4-—- 





























| 066B ix'O08*, Pointer to *-8, CC {TIC to *-8. | 
| . jand SLI, 5 | { 
| —— rf eae rar +—— = — _ —— | 
{ BO6C ~ |~X'O5', 26Filename.D, CC and |Write data (updated COCR) from the | 
| ‘|SLI, 10 jcylinder overflow control record (COCR) | 

| 


| | | Jarea in the DTFIS table. 


se Soh 












See Res Sieceneernenene Se . 
: EES ES : Se 
oe Shee ee oe os 













































| F14B [X'B1', 2&Filename.D+8, CC, 5 |Sea | 
[ | Jthe track index using the pointer, CCHHR, | 
| | Jin the work area for the current track | 
| | jindex normal entry count field. i 
Se = = : ———— —— oe a =| 
| O66B 1X'O8*, Pointer to *-8, CC. {TIC to *-8. | 
| jand SLI, 5 | | 
SS Se a= = = Se aa ——| 
; BDCC 1X'0O5', 2&Filename.W, CC and |Write data (track index overflow entry) | 
| {DC, 10 {from the random/sequential retrieval work | 
i i jarea. | 








co ee 
Seah SEE 
inet 










a oe So es 
NESS 









2&6Filename.D+8, CC, 5 |Search identifier equal the track index 
Jusing the pointer, CCHHR, in the work area 

{for the current track index normal entry | 

| [count field. 

| 
































4 - - - ce ae ees ref enn eo a Simm Sud areb a a ee cea ees asian 
O6€B 1¥'08', Pointer to *-8, CC [TIC to *-8. 
| jand SLI, 5 | | 
(=== a eae seca es Sab Se aaa a | 
| 1D3C 1xX*06', 2&Filename.W, SLI {Read data to verify record just written. | 
| land SKIP, 10 {Information is not transferred to main | 
| | |storage. | | 
Pett ee! pce eles = Seas sn a —_—J 

















1 -- 8 See nctes 1 threugh 8 in Figures 110 and 111. 
Notes The shaded areas indicate CCWs built for RPS only. 


Figure 87. Channel program builder for ADDRTR -- CCW chain built to write track index 
entry for add function. 
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mamma erates DS EE - EREN P  OUEP STE SR CETTE 





{CCW Builder | | | 
}Control Code!?| CCW Built | Function | 


ETE 












[X¥'31"', 2&Filename.S+3, CC, 5 |Search identifier equal for RO using [ 
| |pointer, CCHHR, in common seek/search area | 
| Jin DTFIS table. ; 
| 
| 
| 


REO 2 oar Tp REO One OS Etat 









































re ee me nee eer me ae ce a et ee om af esi i ence i ta in 

; 066B {X¥'O8', Pointer to *-8, CC {TIC to *-8. 

| fand SLI, 5 , ] 

SS — = = as a ———SS es ——| 
| BOQ2C |X'OS', 2€Filename.D, SLI, 10 |Write data (updated COCR) from the cylinder| 
| | joverflcw control record area in the DTFIS | 
| | {table. 
ee nee Sines es sees ess Sen ei ccs cnn mes cas es tc es aoe a aru a i am i ans eis ub ch ia is see sa atin class conn sion Gusse euis tube winenesinsGchacavanimis aaa weresacianSell 

















1 -- 8 See notes 1 through 8 in Figures 110 and 111. 


ote: The shaded areas indicate CCWs built for RPS only. : 


= 


Figure 88. Channel program builder for ADDRTR -- CCW chain built to write COCR for add 
function. | 


fo ee RSE ED CRE ERED SERED AED ND OED END CHES ETD CRD ANS CO OU OED LL SAS SD APD NY AE CNY ND AE TT I TS ED DS COSTS A AYR SED STN A AS AD AS TTT 


1CCW Builder | | | 
{Contrel Code? | | CCW Built ; Function { 
bereeeneernee SSS) eee 





SKK HH A AIR RI KK HMI HH HHA KI AMI WL NYA XH HCH KH AHI HD ey HHH RYH ARH A, SICAL dy a( Xd 0 CW KKH DEK A AMAR Agi Y WW HRA ATX XP DEAR HAA Ra PS Pond WHA XH AHH HR KW DR atid COX WK AM RDM A oA XARA RIL Ped LRH WHAM KA EN KA A BAIL K KKH AKH ID 











































] 8C4B [X¥'31', 2&6Filename.S+3, CC, 5 |Search identifier equal using pointer, { 
] | |CCHHR, in common seek/sSearch area in DTFIS | 
| | jtable. | | 
SS SSS = see ceecuazceedl | 
| OE EB 1¥'O8', Pointer to *-8, CC {TIC to *-8. | 
land SLI, 5 | 
ea ea a eee ————— — SS aaa ea 
| AAQ7T |X'OE', Address of IOAREAL+8, |Read key and data of previously low | 
| }00, Key Length + Record joverflow record into IOAREAL+8. | 
| Jlength + 10 | | 
oe a ee ee cits ci sa ann sais eis nin ene cocina ‘mnie <a cc i cs tne iy Sc ens ape seas cm a estan pda eps Seip cacceacall 














2 -- 8 See notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 


Figure 89. cCharnel program builder for ADDRTR -- CCW chain built to read previous 
cverflow record for add function. 
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— 
(CCW Builder | 
Scenes Code! CcW Built { Function 


S cctenmiencmnas 


Ec a aa i a a a a a 
| 
| 
| 














! 8C4B (X¥'31"', 2&Filename.S+3, Cc, 5 |Search identifier equal using pointer, ] 
{ | |CCHHR, in common seek/search area in DTFIS | 
| |table. 
SS | 
| OE€€EB 1X'O8', Pointer to *-8, CC |TIC to *-8. | 
{ jand SLI, 5 | | : | ] 
| —-----—___ ---} ----_——-_- __ OO OOOO —_—————————— | 
| 2A47 |¥"'OD', Address of IOAREAL+8, |Write key and data of previously low | 
| jcc, Key Length + Record foverflow record located at IOAREAL+8. { 
| 


[length + 10 | ; | | . | | | 





| 8C UB {X'31', 2&Filename.S+3, CC, 5 |Search identifier equal using pointer, | 
| | |CCHHR, in common seek/search area in DUE S74 
| | Itable. = | 
| nn nr a rrr ea rer rere aneeeeeneneaenamameen ane | 
| O66B 1¥"'O8', Pointer to *-8, CC {TIC to *-8. | 
| : jand SLI, 5 | ] a [ 
| rr rere cerrremnnmnemnmanaae | 
{ AA37 {|X'OE', Address of IOAREAL+8, |Read key and data to verify record just [ 
| {SLI and SKIP, Key Length + jwritten. Information is not transferred | 
[ {Fecord Length + 10 Jto main storage. | 
i a ee se nee ators See a we ie ses ae ees se pm em in i senses usin oe eis es us eas rs Se sas Sn ae Siw eins betas ies ce eminem sms ei ey ems ees een Sas sap ants ees ims nian ies nines seas 








1 -- 8 See notes 1 through 8 in Figures 110 and 111. 


Note: The shaded areas indicate CCWs built for RPS only. 


Figure 90. Channel program builder for ADDRTR -- CCW chain built to write previous 
overflow record for add function. 
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LE CL LT CI LD LAPD AD ED A RTD ACD CALS AD EAE CSD CREA EOD CRITI 


{CCW Builder | { | 
{Control Code! | CCW Built { Function | 














































gore ee Se Pe a : ce tne © es ee : 

_ a oo 

| 8C 4B }x¥'°31', 2&6Filename.S+3, CC, 5 |Search identifier equal for last overflow | 
{ | Hay J{record address using pointer, CCHHR, in { 
| | jcommon seek/search area in DTFIS table. | 
|--------— <== <— SS = ——— — ——| 
] O66B 1Xx'O08", Pointer to *-8, CC [TIC to *-8. ] 
| fand SLI, 5 
|---——_--—_—_——-_|-----—- —— Seema —{— ————— enema | 
{ 37C9 {X'1D', Address of IOAREAL, {Write count, key and data of new overflow | 
( }cC and DC, Key Length + jrecord located at IOAREAL. | 
l I 


|Fecord Length + 18 











seh nage Se 
SPR TS SR Soe 


8C 4B }xX'31', 2&Filename.S+3, CC, 5 |Search identifier equal for 1 
: {record using pointer, CCHHR, in common 
| |jseek/search area in DTFIS table. 















































me a ne ne rr ct ncn tah ics eh cam ~+-—~ na ana snea —— 
| 066B {x'O8", Pointer to *-8, CC {TIC to *-8. | 
| jand SLI, 5 | | 
|— ———+----------— —----—-—--—- ——---_--_-_---—---— ———| 
i C739 {|X'1E", Address of IOAREAL, {Read count, key and data to verify record | 
i {SLI and SKIP, Key Length + jjust written. Information is not | 
{ {Record Length + 18 {transferred to main storage. | 
esse Nenseee Tee er eee eee ——J 




















1 -- 8 See notes 1 through 8 in Figures 110 and 111. 
Note; The shaded areas indicate CCWs built for RPS only. 


Figure 91. Channel program builder for ADDRTR -- CCW chain built to write new overflow 
record for add function. 
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{CCW Builder | | | 
{Control Code!| CCW Built | Function | 






8C4B 1xX'31", 26Filename.S+3, CC, 5 |Search identifier equal for present. EOF 
| |record address minus one uSing pointer, 
|CCHHR, in common seek/search area in\DTFIS 





















































; [ 
{ ; 
i | 
{ [ |table. 
i-—— ———+ = aa (a —— ————— | 
i 066B  fX'O8', Pointer to *-8, CC {TIC to *-8. [ 
| Jand SLI, 5 | : | 
|-—— ———+ <= = a | 
i 37C8 |X'1D*', Address of IOAREAL, {Write count key and data of new record | 
| {CC and DC, Key Length + {to be added located at IOAREAL. | 
; | 


| Block Size + 8 | 





8C 4B }X'31", 2&Filename.S+3, CC, 5 |Search identifier equal for present EOF 

| | |record address minus one using pointer, 
| |CCHHR, in. common seek/search area in DTFIS 
( 












































{table. 
SS sast-wuih nth dio xen cmaem enema cis vein oem amo ene 
| O€EB 1X'O8*, Pointer to *-8, CC }TIC to *-8. 
| : fand SLI, 5 { 
———-— SS SS ee = 
| C738 |Y¥'1E*, Address of IOAREAL, {Read count, key and data to verify record 
{ {SLI and SKIP, Key Length + {just written. Information is not 
{ ) |Block Size + 8 {transferred to main storage. 
LW. —— aii at a a es Sa an peers ee | 
1 -- 8 See nctes 1 through 8 in Figures 110 and 111.. 


Figure 92. Channel program builder for ADDRTR -- CCW chain built to write over EOF 
record (blocked records) for add function. 
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LES OLED ETE TO CED EINTAIES ERED LEED OEY EATERS MISE AD AAT ARPA PETES RET SITES LAPS UTD <A EONS COLNLNY- AED OC ARANDA AED 











enero 
|CCW Builder | | | : 2 , | 
{Control Code?| ~~ CCW Built | Function j 





8C4B {X¥'31", 2&Filename.St3, CC, 5 {Search identifier equal for present EOF 
{ {record address minus one using pointer, 
| |CCHHR, in common seek/search area in DTFIS 









































l | 
{ | 
| [ 
| | |{table. | 
| fe << acerca seam cremmtinefommem ee ea ei ae sree ib a ie eta aie eee ee —————— | 
| OEEB 1x'O8', Pointer to *-8, CC {TIC to *-8. | 
| fand SLI, 5 | | 
| ---~--—- 4+ -——- —— er ee —— | 
| 37C8 {X¥'1D*', Address of IOAREAL, {Write count, key and data of new record | 
| jcc and DC, Key Length + jto be added, located at IOAREAL. | 
{ | | l 


{Block Size + 8 | l 




































































F 
| 8C 4B ix 134", 2Filenane. 543, cc, “5 |Search identieier eqeal for prevent EOF | 
| | [record address minus one using pointer, | 
] | |CCHHR, in common seek/search area in DTFIS | 
{ | |table. | 
(=== SSS SSS —————— <= i 
| O6€B 1X'O8*, Pointer to *-8, CC |TIC to ¥*-8. | 
| jand SLI, 5 | | 
te —— SS = { 
| C738 |X'1E', Address of IOAREAL, {Read count, key and data to verify record | 
i {SLI and SKIP, Key Length + {just written. Information is transferred | 
| {Flock Size + 8 [to main storage. { 
| ee meee ma a aes mi cara Sa nt eee a aca aha ce a seamen ve sens ania Sarees 
1 -- 8 See notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 93. Channel program builder for ADDRTR -- CCW chain built to write over EOF 
record (unblocked records) for add function. 
ys ne Sin er a ee ee eT eR et ee ee ee CY oy FS ee eT ea Ee OO ee Te Ne Se a ae ree ee ee ae 
| CCW Builder | | | 


{Control Code! | CCW Built | Function | 





















































F 
| 8C4UB | STerhn 26 Filenane. S+3, CC, 5 |Search identi fier eae foe present EOF | 
| | |record address minus one using pointer, | 
| | | {|CCHHR, in common seek/search area in DTFIS | 
i | jtable. | 
== ——— SSS SS ee | 
| O66B {X'O8', Pointer to *-8, CC {TIC to *-8. | 
| Jand SLI, 5 | | 
| nn a a nn nnn nr ne —= —+-—- —— —— ——| 
{ 37AC {X'1D', Address of IOAREAL, {Write count, key and data of EOF Pecora: | 
| ypc and SLI, 10 jlocated at IOAREAL. | 
i i ces cscs > cnc ces nh ssa ices cis es ces ts in os Sam en ess av hms eb clas = i ce os we cece eases erat ee eeleats eaten cs cis Samesoens <0 mma 
i -- 8 See nctes 1 through 8 in Figures 110 and 111. 
Notes: The shaded areas indicate CCWs built for RPS only. 
Figure 94. Channel program builder for ADDRTR -- CCW chain built to write EOF record in 


independent overflow area for add function. 
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{CCW Builder | 
{Control Code! CCW Built | Function 









8C4B 5 





{(X'31", 
| jusing the pointer (CCHHR) in the common 
| jseek/search area. 


2&Filename.St3, CC, 























































































































( 

{ 

i 

i 

era Re aTond dealer ACen aes ae SSS SS Se 

| O6€B {X'O8", Pointer to *-8, CC {TIC to *-8. | 

fand SLI, 5 | | 

| age ge ers St ee ee ae ee ef ag ee ee ak ees See eg ee ee eae ge ET ky ee agen ee ge se 

| 106C 1X¥'06', 26Filename.D, CC and |Read data (COCR record) into the cylinder | 

| 

L 

{ E14B {X'B1I', 2&Filename.D+8, CC, 5 |Search identifier equal (multiple-track) i 

| j jthe track index for the last normal entry | 

| | Jusing information in the work area for the | 

{ { jcurrent track index normal entry count | 

| | | field. | 

|-———_—----------}---—--———- = St a a —— | 

| O6€B {x'O8', Pointer to *-8, CC {TIC to *-8. | 

{ jand SLI, 5 i i 

| -------—-- --_-+|+----------—— SS — —————— | 

[ 154C 1X'O6', 2&Filename.Dt40, CC, |Read data (last track index normal entry) | 

| {10 Jinto work area for track index normal entry| 

{ | | jdata field. | | 

= =o SS <= Se | 

| 526C {X'92', 2&Filename.D+*+16, CC }Read count (multiple-track) of last track | 

| jand SLI, 10 Jindex overflow entry into work area for the| 

[ { tet j[current track index overflow entry count | 

{ | { |field. | 

| -—-—-—-——-——_--—--—-—+ = —— —+—— ——S SSS —| 

| 1D0C {X'O06", 2&Filename.W, 00, 10 {Read data (last track index overflow entry) | 

[ | jinto random/sequential retrieval work area. | 

en Se a ese ae ae eee ete ee 
1 -- 8 See notes 1 through 8 in Figures 110 and 111. 

Notes: The shaded areas indicate CCWs built for RPS only. 

Figure 95. Channel program builder for ADDRTR -- CCW chain built to read last track 

index entry for add function 
| ar aes en pee ey eee ay CS a a ee Re Bae ENG i ne en eR ——" 
{CCW Builder {| i | 


{Control Code?] CCW Built ( | Function 


















ee EES: ce 
identifier equal the overflow chain 





¥'31', 2§Filename.S+3, CC, 5 {Search 





















































4 
i 8C4B { | 
| | Jusing the pointer (CCHHR) in the common [ 
i ; |seek/search area. | { 
SSS ta erate : = SSS SS { 
| OE€EB 1X'O8", Pointer to *-8, CC }TIC to *-8. | 
{ Jand SLI, 5 | | 
(-—_-----—_—-_-_—| ------——-—— = —- —— — ——| 
| AAO? |X'OE*, Address of IOAREAL+8, |Read key and data of overflow record | 
| (00, Key Length + Record Jinto IOAREAL+8. ] 
j {Length + 10 | | | 
Oi genres ntal eee cemn cin decane eae oueenn Gk testes a ars i ic eis i ee ci a i Se i a gh la ai 

i -- 8 See nctes 1 through 8 in Figures 110 and 111. : | 


Note: The shaded areas indicate CCWs built for RPS only. 


Figure 96. Channel program builder for ADDRTR -- CCW chain built to read overflow 
reccrd for add function. 
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| oa 
(CCW Builder | { | 
|Control Code!]|. CCW Built | Function | 


ani’ Oe ee SANA OA 









of : : 
| ee oo oo 
i 8C 4B ' 4X°31", 2§6Filename.S+3, CC, 5 |Search identifier equal for last prime 
l 





| |record using pointer, CCHHR, in common 
| |seek/search area in DTFIS table. 











| -—-----—------ --- OOo a a ee 
| 066B 1xX'08', Pointer to *-8, CC {TIC to *-8. 

| jand SLI, 5 | 

a nam ln a a ne ee aan se | 
| 1B02 1%'06"', Address of IOAREAL+ {Read block into IOAREAL + 8 + KEYLEN. | 


{ |8+KEYLEN, 00, Block Size © | | 


cs nin cms ss em isc en nb on emi Suv ns eS ses cen ie “mines nn oles Gi ett nis es ne eel 





1 -- 8 See notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 


Figure 97. Channel program builder for ADDRTR -- CCW chain built to read last prime 
data record for add function. 





(re ee ee ee eT ee ee ee eee 


ICCW Builder | | 
{Control Code! CCW Built | Function 


aA atest re, 






S on 4, 2 ene = ceatotete te 
oe ee: se a oe seats pacnacermunancaron nen 
ESLER so aiiciargensartanneaeuna mec 





8C4B 1X'31', 26Filename.S+3, CC, 5 |Search identifier equal for last prime data| 
{ | _ [record using pointer, CCHHR, in common ( 
| jseek/search area in DTFIS table. | 


















































aia a seleia emai a Sap aR eS Sees ———— | 
O66B |¥'08", Pointer to *-8, CC | TIC to *-8. | 
jand SLI, 5 ; - | 

= === ——— = = SS ——— | 
2AC6 |X'OD', Address of IOAREAL+8, |Write key and data of prime data block { 

{CC and DC, Key Length + {located at IOAREAL+8. | 

| 


| Block Size | 





8C 4B {X'31', 2&6Filename.S+3, CC, 5 |Search identifier equal for last prime data 
| {record using pointer, CCHHR, in common 
| jseek/search area in DTFIS table. 





























| 

| 

| 

arene emeere amram atc et A eal mem a aaaaienias i 
066B 1}X'O08", Pointer to *-8, CC {TIC to *-8. | 
jand SLI, 5 | | 

== er ce enw eee ener rreearanenlirennare aan | 
AA36 |X'OE', Address of IOAREAL+8, {Read key and data to verify record just | 
{SLI and SKIP, Key Length + jwritten. Information is not transferred | 

| | Block Size |to main storage. | 

ie ne cope ee ESE ee rene eke PRC ee Ne A eR et an oe RE Te NRL AA TE EOE | 

















1 -- 8 See notes 1 through 8 in ‘Figures 110 and 111. 
ote: The shaded areas indicate CCWs built for RPS only. 


Figure 98. Channel program builder for ADDRTR -- CCW chain built to write block of 
prime data records and verify for add function. 


178 LIOCS Volume 3 DAM and ISAM 

















Licensed Program - Property of IBM 











coc : 
{CCW Builder {| [ 
{Control Code!| CCW Built { Function 






SC 4B }X'31", 2&Filename.S+3, CC, 5 |Search identifier equal for last track. 


| jindex entry using pointer, CCHHR, in 
| {common seek/search area in DTFIS table. 




























































































i | 
[ | 
( | 
= SS —< | —= —= eae ———— | 
| O6€B 1xX'O08', Pointer to *<8, CC {TIC to *-8. | 
| jand SLI, 5 | | 
|-------------+--_____—__-__-— SS SS ee | 
] 2A 45 |X"OLC', Address of IOAREAL+8, |Write key and data of track index normal | 
i jcc, Key Length + 10 jentry located at IOAREAL+8. | 
| ------—--—-——-———+-—— onan or <== — —| 
] E24B {X'B1', 2&Filename.D+16, CC, 5 |Search identifier equal (multiple-track) | 
| | jthe track index for the last overflow | 
| | jentry using the count for the current | 
{ | {track index overflow entry. | 
== S=— = ae SasasnARE Sanaa i { 
066B 1X'08*, Pointer to *-8, CC {TIC to *-8. | 
| Jand SLI, 5 { 
SS a —— ——— — i 
| 2845 {X"'OD*', Address of WORKL, CC, |{Write key and data of track index | 
{ {Key Length + 10 Joverflow entry located at WORKL. | 





satens 
Soceone SES 
SSRN 


2&6Filename.D+16, CC, 5 |Search identifier equal the track index 





















































824B | | 

; jfor the last overflow entry using the | 

{ Jcount for the current track index overflow] 

| Jentry. 

SS SS ——— Sa a am aa cca — | 
O€EB {X'08*, Pointer to *-8, CC {TIC to *-8. | 

jand SLI, 5 | | 

ec a cma ——— So ———— ——| 
i A&35 {¥*OEF', Address of WORKL, |Read key and data to verify record just | 
| {SLI and SKIP, Key Length + 10 Jwritten. Information is not transferred {| 
{ | Jto main storage. | 
, aes Secs se si oi a eb a ee a cg eau ei de ce a ie Saciiecinn rice Ste i i pt a NS eae | 

1 -- & See notes 1 through 8 in Figures 110 and 111. 


Notes: The shaded areas indicate CCWs built for RPS only. 


Figure 99. Channel frogram builder for ADDRTR -- CCW chain built to write track index 
entry for add function. 
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SOLS CD GASES CED ELE AALY ENT ASD 





ICCW Builder | | 
{Control Code?| CCW Built f Function 






sachin eniunansectetaa aaa Si oa Be eH 

] 8C4B - ~X¥°31", 26Filename.S+3, CC, 5 |Search identifier equal the master/ | 
{ , jcylinder index using the pointer, CCHHR, in 
| | [the common seek/search area in the DTFIS 
i 


















































| 
| |table. , 
(SS Se ee Se == —— | 
| 066B {x'O08"', Pointer to *-8, CC | TIC to *=8. 
| jand SLI, 5 | | 
(SSS = SS Se ——— i ame 
] 150C {}X'06', 2&Filename.D+40, {Read data (index entry) into work area { 
i }00, 10 {for track index normal entry data field. | 
ai aaa cl a a al a a i acces pecans eer, i i cada ee ae ceed 
i -- 8 See notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 100. Channel program builder for ADDRTR -- CCW chain built to read index entry 
for add function. 
Ge ae ee ee ee aE eg Te ee Ne at ee ET COG yg fe SOT EN Yee GE APE TO EO RT A en, ye eee A RE oe Ge FP aE See eg Ce eT ea ea ee ae 
{CCW Builder | i { 
j|Control Code!?| CCW Built i Function | | 
LLL LE LLL ILE LL EE eae an Senet sae ait) 






oo 


8C4B [X'31", 2&Filename.S+3, CC, 5 {Search identifier equal the master/ 
| | jcylinder index using pointer, CCHHR, in 
| |common seek/search area in DTFIS table. 

















| 
| 
| 
SS SS 
| 
| 






od ce Sa cs —f—— 
O066B |x'O8', Pointer to *-8, CC {TIC to *-8. 
land SLI, 5 | 
a +——- enema | 
| 2A45 [X'OD', Address of IOAREAL+t8, | 
jcc, Key Length + 10 
sie rar 








setetetatetenate 






X¥'31', 26Filename.S+3, CC, 5 |Search identifier equal the master/ 


| 
{cylinder index using pointer, CCHHR, in | 
| 
| 





| 
| e 
| jcommon seek/search area in DTFIS table. 








AA35 |X'OE', Address of IOAREFAL+8, |Read key and data to verify record just 














| 
{SLI and SKIP, Key Length jwritten. No information is transferred | 
{+ 10 jto main storage. 1 
on sii Says slg ots spi ns em Sn enum a im be spe cus tan cians igh i esos es ist tm cms Cs omic ai eines ines a a a Se Ee | 
i -- 8 See notes 1 through 8 in Figures 110 and 111. 
Note: The shaded areas indicate CCWs built for RPS only. 
Figure 101. Channel program builder for ADDRTR -- CCW chain built to write index entry 


for add function. 


180 LIOCS Volume 3 DAM and ISAM 





Licensed Program - Property of IBM 








SS Se RoR ge eae RL, SPOT ae ae pee OR Oa fae age, Ree ee ene ee et eT ee Ne Ce ee Pe ne ee Cae ae 
| 


CCW Builder | | 
{Control Code! CCW Built | Function [ 





8C4B {xy'3t', 26Filename.S+3, cc, 5 |Search identifier equal the track index 
| Jjusing the pointer, CCHHR, in the common 
| |seek/search area in the DTFIS table. 












































a ee en ef sri adn it Sn ns ae ces as pn a, ei as min ass mis ua as Sin ei on a 
066B 1x¥'O8', Pointer to *-8, CC {TIC to *-8. 

a re me ee oe ee af ee Serene: a cei nar a eat a ceesis arms i in ans Soi 
BO6C [X'OS!, 2&Filename.D, CC {Write data (COCR) from the cylinder 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Jand SLI, 10 | Joverflow control record work area in DTFIS 






[ 
{ 
| 
{ 
| 
{ jand SLI, 5 | 
| 
{ 
| 
| 







se estatateteretes 


] E24B i1X¥'B1', 2&Filename.D+16, 

| [ce 5 jthe track index using the pointer, CCHHR, 
| 

| 





| jin the work area for current track index 
{ Joverflow entry count field. | 


——— 


—— ee CO au cxme anti” 

















| -------------+------—-- 























| 066B [¥'0O8', Fointer to *-8, {TIC to ¥*-8.. ‘4 
{CC and SLI, 5 | 
| —--—------------------—--——- ——--—-—--+— —--—— —— — —| 
| AA35 IX'OE', Address of IOAREAL+8, {Read key and data to verify record just 


| |SLI and SKIP, Key Length + 10]written. Information is not transferred 
| | jto main storage. te 


DOG ES ED CLD A AD AED AEE A SD ETD SES A 


| 
psu 




















Oc as a i a sa a a Seis ee cw ec ee es et 


i -- 8 See notes 1 through 8 in Figures 110 and 111. 


Note: The shaded areas indicate CCWs built for RPS only. 


Figure 102. Channel program builder for ADDRTR -- CCW chain built to write track index 
overflow entry for add function. 














SSE SS CE ED ES CED Ge TS NED OE aETEP EE CE ee LED AD AAR SEND LETNP ONE EL, SD AALS COTES LO ELLEP IDL SY ALLIES LCE ATED SAID CATE EIS TD APESAY SEY LEAD 


. 
jCCW Parameter | CCW Built | | _ Function ; | 


Bie Beso 23 as HHH AOKI SRK Ricerisoegebbednncnsiats: 
i aS x5 eee fee 



















s CE On AE Si kine eS ane ee 
0540 {X'31', 2&Filename.S+3, CC, 5|Search identifier equal the prime data area 


| Jusing the pointer (CCHHR) in the common 
| |seek/search area in the DTFIS table. 


















































SS —_— — ————— SS 

{ {X'08*, Pointer to *-8, CC, O|TIC to *-8. 

(== ———— == Sa — 

| 1X'05',* §SIOAREAS, CC,5 {Write data (block) onto prime data area. 







| . [Block Length® | ( 


ss ert 


















































| , 5|Search identifier equal to verify write | 
l | Joperation. { 
| ------—_-——-—---- }-— sean cinae i = SSS a | 
| 1x°O8", Pointer to *-8, CC, OJTIC to *-8. | 
|---| -— = Sa = | 
{ 1X"'06",* &SIOAREAS, SKIP, |Read data to verify write operation. | 

( 


| |Block Length® { 
t... 


























i -- 8 See notes 1 through 8 in Figures 110 and 111. 


Notes: The shaded areas indicate CCWs built for RPS only. 


Figure 103. Channel program builder for ADDRTR -- CCW chain built to write records for 
sequential retrieve function. 
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GP AED OME CE DON AS CER CE CEOS EI aD 








pater 
|CCW Farameter$| CCW Built | Function | 


i a a aE A a a Sc RE OT 













sn ana Re re “ Seer ilove orranesnn oon’ i. 
oe ke. EE GREE cS 
So & 3 8 Be 2 a, : * pts ee : : 
SRR ote Ses Bata IR ots Shee ana 
eeetetatat ates ns % Aetetotalatatetetonarenses ros SS eer eeeenee Sr ss ee 
eee cones RRS a aE stunner as 


0601 {x'31!', 2¢Filename.S+3, Cc, 5|Search identifier equal the track index | 
| Jarea, uSing the pointer (CCHHR) in the | 
| | {common seek/search area in the DTFIS table. | 






































SS SS SS ee —| 
1X¥'O8', Pointer to *-8, CC, O|TIC to *-8. | 
SS a ————— — -_——_-—————— | 


1X'06', 2&6Filename.W, CC,5 10jRead data (10-byte index level pointer) | 
| Jinto random/sequential retrieval area in | 
| |DITFIS table. | 


< es 


S Si Sacer ae 
ogiintactadte, Se 
ee Sete 









SOP 


RIN PR 


| 1X'31", 26Filename.S+3, CC, 5|Search identifier equal to verify read | 
{ 


| |operation. 


























[= aeen Se <= <= = 
( 1X¥'O8', Pointer to *-8, CC, O|TIC to *-8. | 
eS SSS SS = enemas | 
| 1X'06", SIOAREAS, SKIP, |Read data to verify read operation. | 


| |Block Size | { | 
cpeemasemanenine tomas amici 


tance A SA A TG CLT CE CR? GIRS: GORI SAO COTE 














1 -- 8 See notes 1 through 8 in Figures 110 and 111. 





Note: The shaded areas indicate CCWs built for RPS only. 


Figure 104. Channel program builder for ADDRTR -- CCW chain built to search track index 
for sequential retrieve function. 








AD ED TEAL LILY TSE ELD OEE RES SN AR OS ED OTS AD 





Crt 


See Te ee ee 


|ICCW Parameter | CCW Built | Function | 





| 0600 {X'31', 2&Filename.S+3, CC, 5|Search identifier equal the prime data area| 
| | jusing the pointer (CCHHR) in the common 
| | |seek/search area in the DTFIS table. | 
i ; 
{ 



































——— = ———}+-—— _ Sa aan ——~ | 
1X*O8', Pointer to *-8, CC, O|TIC to *-8. | 
= areca, maa oreo cree inner mcenamsmrcaimaiane f 
|X'06',* GS&IOAREAS, CC,5 {Read data into IOAREAS. | 


| |Block Length® | | 


eee 
ee 





| 1X¥'31', 2&Filename.S+3, CC, 5|jSearch identifier equal 












































| 
| { a joperation. | 
| ----—--------- + --------- a omen =< | 
| 1X'O8', Pointer to *-8, CC, O|TIC to *-8. | 
|—--—— —+ ——--—--------4— ——-—---—___—| 
| 1X'O06", SIOAREAS, SKIP, {Read data to verify read operation. | 

| 


{Block Length® | 


| 
| en 




















i -- 8 See notes 1 through 8 in Figures 110 and 111. 





Notes The shaded areas indicate CCWs built for RPS only. 


Figure 105. Channel program builder for ADDRTR -- CCW chain built to read record for 
sequential retrieve function. 
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Se ee ee 


—— -—————— Bate Sars SS a 
| { CCW Builder? | | . | 












































{[LabeljControl Code | CCW Built j Function | 
Se ee —= ——— SS ere | 
] | 7441 1¥*69', EKEYARG, CC, Key |Search key equal or high the master/ | 
; | {Length {cylinder index. Key supplied by user | 
| | | Jin DTFIS table. | 
= St ———— SS | 
; | 0c40 1x'O8', Pointer to *+16, CC, |TIC to *+16. | 
f | {Record Length | ‘ 
{—--——+}-_---—-————— Sa eT oS | 
| | BO4B {[X'1A', 2&Filename.S+3, CC, 5j|Read home address into common seek/ i 
| | | {search area in DTFIS table. | 
|---—-+-—— —= —————— SS —-| 
i | 506B 1X¥'92', 2&Filename.S+3, CC {Read count (multiple-track) - CCHHR - | 
{ | jand SLI, 5 Jinto common seek/search area in DTFIS | 
| | | | Itable. | 
|---| -——-- SS an aca 
| | 7441 {X'69", &EKEYARG, CC, Key {Search key equal or high the mastery | 
| | {Length [cylinder index. Key supplied by user. | 
|-—-— == eS ee cee sa ince ann eee nema amnesia f 
[ 0440 {X'O08', Pointer to *-16, CC, |TIC to *-16. ] 
| {Record Length l 
110C {x'O06t, 2&Filename.W, 00, 10 {Read data (10-byte index level 


| 
| 
| 
l 
{ 
| 
| 
| 
u 


1 -- 8 See notes 1 through 8 in Figures 110 and 111. 


Figure 106. 


Channel program builder for ADDRTR -- CCW chain built by $$BSETL 


{pointer) into random/sequential 
jretrieval area in DTFIS table. The 
jdata field is then moved from the 
jrandom/sequential retrieval area to 
{the common seek/search area for the 
jnext search. 





L 














(1) to 


search MI for sequential retrieve function. 
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Gr eee se eee ae ge eee eee CE al eg era ence TEE af ee ee ee eS EAL LEIE ALCL ENG PLATS ANT LON CRT EI EME: “LEY SD a IIT, | 























| 

| | jrandom/sequential retrieval area in 
| { |DTFIS table. The data field is then 
i | | , jmoved from the random/sequential 

| | jretrieval area to the common seek/ 

| | j|search area for the next search. 


ED END ED TSA LEED ESAS TLD SLD LEY GD OILY I SE NS ETD CET ATES CPCS CEES ADC ELID- SSE TD TD CED ALD DED OITED 


i | CCW Builder? | | | 
|Label|Control Code | CCW Built | Function | 
|-—— == —= SS SS Se eS | 
| |  806C ‘[X'31", 26Filename.S+3, CC |Search identifier equal the track | 
| | jand SLI, 10 Jindex using the 10-byte pointer in the] 
| { | {common seek/search area. | 
(SSS Se | 
| | 0640 IX¥'O8', Pointer *-8, CC, {TIC to *=8. | 
‘| | |Record Length ; | 
|-—---—|-__--------- reese een tin fe ee en sc tenn | 
| | 126C 1X'06"', SIOAREAS, CC and {Read data (10-byte track index | 
| | | SLI, 10 |pointer) into IOAREAS, input/output | 
| | | - jarea for sequential retrieval supplied| 
| | | |by user. | 
| -—---+-—__ ——_____-_-—_-|—-_—————--—————e—o- eee oreo SS en | 
; | 506B {X'92", 2&Filename.S+3, CC {Read count (multiple-track) - CCHHR - | 
] | Jand SLI, 5 Jinto common seek/search area in DTFIS | 
| | i |table. | | 
|---—— Se ame Sa a a cc ae | 
{ | 7441 |X¥'69", &EKEYARG, CC, Key |Search key equal or high the track | 
| | |Length Jindex. Key supplied by user. { 
| -----+-----------—— —— SSeS ee are a nce aera ee —— | 
| | 0240 1X'O08', Pointer to *-24, jTIC to *-24. { 
| { (CC, Pecord Length | 
| —----+ ---—_-_-_-_-_- -- - -—- | nn een | 
110C {X¥'O6", 2&Filename.W, 00, 10 |Read data (10-byte pointer) into | 

| 

| 

| 

; 

| 


p------ 


OE A: ELITE IN SEEN SEN LE IRS OEY SETS AR ST OR SERPS OI ai i em ini emi ac sr tm a en acne 


1 -- 8 See notes 1 through 8 in Figures 110 and 111. 








Figure 107. Channel program builder for ADDRTR -- CCW chain built by $$BSETL (1) to 
search TI for sequential retrieve function. 





SS SS SS SS SS SS Se eS ee 
| | CCW Builder?’| | | 
jLabel|Control Code | ccW Built ; Function | 
|---| —___-_-__-_-- --_- | -—__ — - OOOO OO - = 
{STRI1] 8O4B {[¥'31', 2&PFilename.S+3, CC, 5|Search identifier equal the prime data] 


| Jarea uSing the pointer (CCHHR) in the | 
| jcommon seek/search area in the DTFIS | 
{ 






































| 

| | |table. 
(=== i SS | 
{ | O066BR 1X'O8', Pointer to *=-8 ,CC {TIC to *-8. | 
| | Jand SLI, 5 | 
{ -—---+---—-----—— SS ee ee —_——---- | 
{ i 4K1EC {X¥'12', 2&Filename.wW, CC }Read count into common seek/search | 
| jJand SLI, 10 Jarea in the DTFIS table. ; 
(-----—+-----—-—— = << 
f | 6441 {X'29" or X'69', &SKEYARG, {If KEY is specified in the SETL macro | 
| ( Or {CC, Key Length Jand/for records are unblocked, this | 
| | 7441 { {CCW searches key equal the prime data | 
{ { | jarea. If GKEY is specified in the | 
| | | |SETL macro and/or records are blocked, | 
| | | Jthis CCW searches key equal or high | 
| | | Jthe prime data area for the starting | 
| | | |}record. : | 
i SS Se a 
| | O4EB |¥'O8', Pointer to *-16, j|TIC to *-16. | 
{ }cC and SLI, 5 | 
|-——---+-----------—~ SS ——— —_—-—— Oe | 
[ | 1202 |¥'06", E&IOAREAS, 00, }Read data (block) containing { 
| | {Block Size [starting record into IOAREAS. i 
nn ns se Sa ces dew ssc cw ws es cei ee nt nc eee ones coe niees es cnet sia ci i ss i cc an nti Ca ssn an nn ie ae ae es cl 

1 -- 8 See notes 1 through 8 in Figures 110 and 111. 
Figure 108. Channel program builder for ADDRTR -- CCW chain built by $$BSETL (1) to 


find first record in prime data area for sequential retrieve function. 
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a ee a fee ee Re ees ee ee eT Fe eee Ne Oe ee a eT RAR ENS g OTT TTS ON TT ee gee Te Ay ye pe ae ET OLE ge 
{ {CCW Builder | { | 
|Label|Control Code7| CCW Built ; Function { 
= SS SS | 
{STRI3|{ 804B {X'31', 2&6Filename.S+3, CC, 5|Search identifier equal the overflow | 


| | ( {chain using the pointer (CCHHR) in the] 
| | { jcommon seek/search area in the DIFIS ef 
| 

















| 

| {field) into random/sequential 
| Jretrieval area in DTFIS table. This 
{ |CCW is executed when the required 

| ? Joverflow record is not found in the 
| foverflow chain. 


| | {[table. 
(-——--—--+---+---___-__—_} —_—_____ > —_—————}- Se <= 
| 0640 1X'08', Pointer to *-8, CC, {TIC to *-8. 
] | {Record Length | 
|-----+--—---—------—— saan Gam RTS PSST SARS. SAG AR DERG/EBSUD TASES MA hE RL 
I | 6441 [xX¥'29" or X'69', &KEYARG, [If KEY is specified in the SETL macro, 
| | or |CC, Key Length jthis CCW searches key equal the | 
{ | 7441 | foverflow chain for the starting 
| | i -|record. If GKEY is specified in the 
i | | {[SETL macro, this CCW searches key 
i [ | {equal or high the overflow chain for 
y | | {the starting record. 
———— + — = SS 
| 112C X'06', 2&Filename.W, SLI, 10{Reads data (10-byte sequence link 
| 
| 
| 
| 
| 








= SS a as a aR 
1203 1¥'O06', SIOAREAS, 00, |Read data (sequence link field plus 


| {CCW is executed when the matching key 
| fis found in the overflow chain. 


| 
{ [Record Length +10 {starting record) into IOAREAS. This 
i 
[ 


r---- 


i -- &® See notes 1 through 8 in Figures 110 and 111. 











Figure 109. Channel program builder for ADDRTR -- CCW chain built by $$BSETL (1) to 
find first record in overflow chain for sequential retrieve function. 
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Wo ee COED CAN CURED EE ERD ADO ND CEPT EDAD GECADD ee CER CREED REED ME ESS CE PED OT D-DD I IED AYES RY CR IE RES SUES ERTS AS CDE GPE MED LED AAS CED PIO AED A EIT PRESS ETS ED VIDE CCAR ATES ORNS ORES AE ALE ES SUED SEM EIEDED HIS 


|Note 1: 

[ 

iThe CCW builder control code references information in the DTF DSECT section of the 
{ISMOD assembly. 

| 
{The first character of the control code references an operation code at IJHCSTRI. 
| , : 
|The second character of the control code references a data area at either IJHCASAD for 
Jrandom retrieve function or IJHAHRAA for add function. 


! 


{The third character of the control code references the following information: 


Control Character CcW_Flag_ Field Meaning 
0 X*O0! End of CCW Chain 
2 ¥* 20! SLI (Suppress Length Indicator) 
3 X*308 SLI and SKIP (Suppress data transfer) 
a ¥x'4or cc (Command Chaining) 
6 X*60!8 cc and SLI 
7 Xx'70° | CC, SLI, and SKIP 
A X*aor SLI and DC (Data Chaining) 
C X*co? CC and DC 


l 

| 

| 

| 

( 

[ 

| 

{ 

| 

\ 

| 

| 

{The fourth character of the control code references a byte count (length) field 
Jat IJHCRESZ. 

{ 

|Note_2: 

{ 

|&Filename = DIF name supplied by user. 

( | 

(&Filename.X = ¥ is suffix supplied by DTFIS for unique DTF labels. 

| 

|Note_ 3: 

| 

[The CCW parameter is located in the TSMOD asseably« 

; 
{T 
| 


The first byte of the parameter is the command code. 


{The second byte of the parameter contains flags with the exception of the chain to 
|search the track index. In this case, the second byte is an indicator to the channel 
{program builder that the CCW chain is to search the track index. 

I 

|Note 4: If the file contains unblocked records, the command code is modified to Read 
{Key and Data, cr Write Key and Data. 


{Note 5: If the verify option has not been specified, the command chaining bit is not 


Note 6: If the file contains unblocked records, the byte count field contains the 
physical record length plus key length. 
Rie eateries a wena eens 


L 





Figure 110. Charnel program builder for ADDRTR -- notes 1-6. 


186 LICCS Volume 3 DAM and ISAM 


Licensed Program - Property of IBM 


a a a a a a a a ga a a re a a 
[Note 7: 

[ | 

{The CCW chains are built by the B-transients, $$BSETL and $$BSETL1. The CCW builder 


|Icontrol code references information in the $$BSETL and $$BSETL1 assemblies. 


| 

|The first character of the control code references an operation code at IJHROP. 
| 

{The second character of the control code references a data area at IJHARA. 


| 
{|The third character of the control code references the following information: 


Control Character CCW Flag Field Meaning 


0 x*' 00! End of CCW chain 

2 x'20!' SLI (Suppress Length Indicator) 

4 X'4or Cc (Command Chaining) 

6 X¥*'60! Cc and SLI 
The fourth character of the control code references a byte count (length) field at 
RELNT. 
Note 8: 


f the first character of the CCW builder control code is an "F", it indicates that 


I 
this is a sector control type of CCW. 


|The second character of the control code is a displacement into the sector arguments 
jfields in the DIFIS extension to indicate which sector argument field is to be used 
{with this CCW. 


a 


\ 
|The third character of the control code references the following information: 


I 
{| Control Character 


Meaning 


Suppress sector calculation. 

Prime data overflow CCW chain. 

Track index CCW chain. 

Cylinder index/master index CCW chain. 


| 

| 1 
i 2 
i 4 
{ 8 
i 

{The fourth character of the control code references the following information: 
I 


| Control Character cCW_Command Code 
} . 

0 x*22" 

1 x'23! 

| 


Meaning 


Read Sector CCW 
Set Sector CCW 


*tWhen building a sectcr control type of CCW, the command chaining flag bit is always 


{turned on in the CCW, and the CCW byte count field is always set to 1. 
bees mene: sta ak ica lie eine Ss i cn ca i cp as a ce ua dn pia 




















Figure 111. Channel program builder for ADDRTR -- notes 7-8. 














ZSAN INITIALIZATION AND TERMINATION 
PROCEDURES 


When files are opened for indexed 
sequential (DTFIS) and the file is on more 
than one volume, all volumes must be 
opened, before processing of the file 
begins. All lakels are checked/written at 
the initial file open. 


Job control accepts label information 
previously supplied on VOL, DLAB, and YTENT 
statements (not valid for the 3330 family) 
as well as information on the simplified 
DLBL and EXTENT statements. Job control 
reads the DAST label information supplied 
on these statements, and stores the 


information area. 


| information in the label 
transient, 


The open monitor logical 
$$BOPEN2, reads the DASD label information 
into the label save area in main storage 
for use by the ISAM open/close logical 
transients. 


The extents in the DASD label 
information record are checked for overlap 
on each other. If overlap exists, a 
message is issued, and the job is canceled. 
Checks are made to determine if all the 
correct packs are mounted, if serial 
numbers match and if any extent limits 
overlap the VTOC. The extents for the 
master index (if specified) and cylinder 
index are checked to determine if they are 
contiguous, and the limits are saved. The 
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routine checks the prime data extents for 
continuity, and a check is made for the 
last prime data extent. The overflow 
extents are chécked and saved for future 
reference. 


For output, file labels are created and 
written in their appropriate locations and 
sequence, and the extent information is 
inserted in the labels. The format-2 label 
for the file is read, and the DTF table is 
updated for each function. A DSKXTN table 
is created, which is located at the end of 
the DTF table. It contains the logical 
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unit and cell number for each extent. This 
table is used by logical IOCS to reference 
the extent information in the DTF table. 


When the file is closed, the format-1 
and format-2 labels are updated from the 
DTF tables. Then the open switch is set 
off, and control returns to the close 
monitcr or to the user. 


For a more detailed description of label 
handling see VSE/Advanced Functions DASD 
Labels. 
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Chart 02. 


From Open Monitor 
$$BOPEN2 






RETRVE file type? 
~ YES 





$$BOISO01 


1. Check DASD label 
information for 


extent overlap. 





$$BOISO2  « 


1. Check DASD 
assignments and 
— extent overlap on 
VTOC. 


. Check duplicate file 
labels in VTOC. 


. Check incoming 
extents against all 
existing files in the 


VTOC for overlap. 


. End of extents? 
YES 


. Point to next extent. 


ISAM Open 





$$BORTV1 


1. Get extent 


addresses. 





$$BORTV2 


1. Process extents. 





1. Check extents for 
different logical 
units assigned to 
same physical unit. 





| $$BOISO5 


1. Save extent limits. 


2. Build DSKXTNT 
table. 


1. Check labels for 
input files via CVH. 


. Create labels for 
output files via 
CVH. 


1. Provide RPS 
support if required. 


. Temporarily move 
the OPEN table to 
the end of the LTA. 


























Format 2 label. 
. File protect? 


. Load type file? 













1. Maintain the 
integrity of the 
independent 

overflow area. 


. Load-create type 
file? 











[seo ——d 


1. Validate address of 
last prime data 
record. 


2. More files to be 
opened ? 





NO 
> ) 


SVC 2 FETCH 
$$BOPEN 
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. Restore the OPEN table to its original location. 
2. Set up common part of DTF table. 
. Load-create type file? 


. Update DTF table with information from 


YES > NO 


$$BO1SO9 


$$BOFLPT : 


1. Put extent informa- 
tion in JIBs to file 


protect DASD file. 










1. Initialize for the 
prime data in core 
add function. 


. SVC 11 3 
To Problem Program 
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ISAM OPEN/CLOSE LOGIC CHAFPT 02 


For input and output files, the initial 
steps to open a file are the same. The 
SYSRES DASD label information is set up, 
and the extents are checked for overlap on 
each other and the VTOC. A check was made 
previously to determine if all the packs 
for the file have been mounted by checking 
all volume labels against the SYSRES DASD 
label informaticn in the label save area in 
main storage. 


All extents for each volume are checked 
against the VTOC limits and for overlap 
with each other. This checking is done by 
the Common VTOC Handler (CVH) residing in 
the SVA. If dcre for an output file, the 
filename is alsc checked for duplication. 
The extents are checked against the SYSRES 
DASD label information, the extent limit 
groups are saved, and the DSKXTN (logical 
unit and cell number) table at the end of 
the DTF table is built. The labels are 
checked, and the extent limits are inserted 
for input files. For output, the labels 
are created and written. The DTF tables 
are updated, and the routine returns 
contrcel to the froblem prcgram or to the 
open monitor. 


sis 


See VSE/Advanced Functions D 
4ft s of 


ced Fun ns Diagno 
Reference: LICCS Volume or detail 
th 


e Ccmmon VTOC Handler. 


For input and output files the steps to 
close a file are the same. The format-1 
and format-2 labels are updated and written 
back in the VTOC via CVH. Control returns 
to the problem program or to the close 
monitor. 


$$BOISO1: ISAM Open, Phase 
Objective: To check the DASD label 
information. 


Entry: From the open monitor, $$BOPEN. 


of the first and last extent in the SYSRES 
DASD label information in the label save 
area. It determines if this is a creation 
of a file, and turns on an indicator if it 
is. The phase then clears the reserved 
field in the SYSRES DASD label information 
record. 


If it is an ADD or ADDRTR type file, this 
phase computes the number of tracks of the 
independent overflow extent limits on 
either the 2311, 2314, or 2319 devices and 
stores the result. It then fetches 
$$BOISO2. 
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Objectives To determine if a DASD has been 
assigned to the file, if the format-5 label 
indicator is on, and if the extent limits 
overlap the VTOC (via CVH). 


Its 


ntry: From $$BO1IS01. 


xits: To $$BOISO4, or to $$BOMSG1 (if an 
rror condition occurs). 


© it 


Method: This phase determines if the 
extents for each DASD volume overlap the 
VTOC or themselves. The Common VTOC 
Handler (CVH) is invoked and a return code 
is passed back. RC=0 indicates there was 
no overlap. Depending on the overlap, the 
appropriate message is issued. After all 
extents have been checked, this phase 
fetches $$BOISO4 to continue processing 
extents. 


ISAM Open, Phas 


4, Chart LD 


logical units assigned to the same physical 
units. 


Entry: From $$BOISO2. 
Exit: To $$BOISO5. 


Method: This B-transient gets the logical 
and physical unit assignments for the 
index, prime data and independent overflow 
type extents. It checks the extents for 
different logical units assigned to the 
same physical unit. If this condition 
exists, the logical unit assignment of the 
extent in the SYSRES DASD label information 
located in the label save area is modified 
to correct this condition. This process 
continues until all extents have been 
checked. 


$S$BOTSO5: ISAM Open, Phase 5, Charts LE- 
Objective: To check the extents for valid 
ISAM format, to save extent limits and to 
build the DSKXTN table containing the 
logical unit and cell number of each 
extent. 


Entry: From $$BOISO4. 


Exit: To $$BOISO6 or to $$BOMSG1 when an 
error condition occurs. 


Methods: This phase first determines the 
extent type (overflow, index, or prime 
data), checks the type for validity, and 
branches to the appropriate routine to 
process the extent. If the extent type is 
not for an independent overflow, index, or 
prime data area, an error message is 
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initialized, and the message writer, 
$$BOMSG1, is fetched to write the message 
on SYSLOG. 


If an index type extent is indicated, 
this phase determines if a master index has 
been specified along with a cylinder index. 
If there is a master index and a cylinder 
index, they must be assigned to the same 
physical unit and they must be contiguous. 
If both conditions are satisfied, the 
limits for the master and cylinder indexes 
are saved and the next extent is processed. 
If either condition is not met, an error 
message is initialized and the message 
writer is fetched. 


If an overflow type extent is indicated, 
this phase saves the extent limits and 
builds an entry in the DSKXTN table. The 
DSKXTN table is located at the end of the 
DTFIS table and is used by ISAM to | 
reference the extent information in the DTF 
tables. It contains the logical unit and 
cell number for each extent. 


If a prime data type extent is 
indicated, it checks the first prime data 
extent upper limit to determine if more 
prime data extents are allowed. If more 
prime data extents are allowed, the phase 
checks the remaining prime data extent 
limits for continuity, and checks for the 
last prime data extent. 


After all extents have been processed, 
this phase checks the index extent sequence 
numbers and fetches $$BOISO6 for execution. 


$$BOISO6: ISAM Cpen, Phase 6, Charts LH-LI 
Objective: For input files, checks format-1 
labels and stores extent information in 
them. For output files, creates format-1 
and format-2 labels and stores extent 
information in format-1 labels. 


Entry: From $$BCISOS5S or $#BODSMW. 


Exit: To $$BOISRP, $$BODSMW, or $$BOMSG1 if 


an error condition occurs. 


phase sets up the 44-byte file name from 
the SYSRES DASD label information as the 
key, and reads the matching format-1 label 
from the VTOC (via CVH). It checks the 
format-1 label, moves the extent limits 
into the label, writes the updated format-1 
label in the VTOC, and increases the volume 
sequence number by one. It continues ; 
processing until there are no more extents. 


If this is an output file, this phase 
creates a format-1 label and then a 
format-2 label. For a description of the 
format-1 label and the format-2 label refer 


SSBOISRP: ISA 
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Labels. 


After creating the format-1 and format-2 
labels, the phase increases the volume 
sequence number and continues processing 
until there are no more extents. 


If this is a mixed input/output file, 
the phase updates the format-1 label and 
writes it back in the VTOC. 


For an extend file, the format-1 label 
is checked for the data security indicator. 
If it is on, and the data security message 
has not been issued, it is issued via a 
fetch of $$BODSMW. 


For a create file, the format-1 label is 
built with the data security indicator on 
if data security has been requested. 


All communication with the VTOC in this 
phase is done by the CVH. 


Open, RPS Phase, Chart Ld 


Objective: To provide RPS support if the 
device containing the prime data and the 
supervisor support RPS. 


Entry: From $$BOISO6 or $$BORTV2. 
Exit: To $$BOIS0O7. 


Method: The PUBs for the devices containing 
the index and the prime data are checked to 
see if they support RPS. If either or both 
do, the appropriate bits are set on in the 
DTFIS. Also, a check is made to see if the 
supervisor supports RPS. If either the 
supervisor or the device containing the 
prime data does not support RPS, control is 
passed to $$BOISO7. Otherwise, the 
following operations are performed: 


1. The RPS switch in the DTFIS is turned 
On. 


2. A 384-byte area is obtained in the user 
partition GETVIS area for the RPS DTFIS 
extension (see Figure 112). 


3. The name of the required RPS ISMOD 
Superset is determined and the superset 
is loaded into the SVA. 


4. The DTFIS and the RPS DTFIS extension 
are initialized for RPS support. 


5. Control is passed to $$BOISO7. (The 
OPEN table is moved to the end of the 
LTA so that $$BOISO7 can be loaded as 
one contiguous phase. After $$BOISO7. 
gets control it moves the OPEN table 
back to its original location.) 
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Figure 112. RPS DIF Extension Work Area 


Dd BVSOVIs Phase 7, Charts MA 
Objective: To restore the OPEN table to its 
original location, to read the Format 1 and 
Format 2 labels for this file, and update 
the DTFIS table for each function. 


Entry: From $$BOISRP. 
Exit: To $$BOISO8 or $$BOISO9 for 
load-create files. To $$BOFLPT for file 
protection. To $$BOMSG1 if an error 


condition occurs. — 


Method: For a load-create file, this phase 
moves the prime data upper limit from the 
extent save area to the DIF table. For 
load-extension, add, retrieve, and 
add-retrieve files, it reads the format-1 
and format-2 labels. It then checks for 
file protection, and whether the file is a 
load file. If there is no file protection, 
S$$BOFLPT is fetched. If there is file 
protection and it is a load file, $$BOIS09 
is fetched to write an EOF record at the 
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beginning of the independent overflow area 
(if one is specified). If there is no file 
protection and it is not a load file, 
$$BOISO8 is fetched. For add and 
add-retrieve files that are already opened, 
a check is made for the track hold 
specification. if HOLD=YES is specified, 
$$BOMSG1 is fetched to print out error 
message 4269I FILE IS OPEN FOR ADD. 


S$SBOISO8: ISAM Open, Phase 8, Charts ME-MF 


bytes of IOAREAL, and to update the prime 
data in-core add section of the DTF table. 


ntry: From $$BOISO7 or $$BOFLPT. 


(ts 


xit: To $$BOISO9 or to $$BOMSG1 if an 
rror condition occurs. 


O Its 


Method: This phase determines if the prime 
data in-core add function is specified in 
the DTFIS table. If it is specified, this 
phase increases the size of IOAREAL (output 
area used for loading or adding records to 
to permit the writing and reading 
of more than one physical record on or from 
a DASD (Direct Access Storage Device) per 
EXCP (Execute Channel Program). 


The phase first calculates the maximun 
number of prime data records that can be 
read into or written from main storage at 
one time. It then calculates the starting 
address of the CCW build area in IOAREAL 
and aligns this address on a doubleword 
boundary. It builds the following CCWs to 
write and read more than one physical 
record per EXCP. 


1. For a write: 

















cr setae pte ee ee rn ag ee ee oe 
JA. CCW xX'31', Pointer|Search identifier| 
| to IOAREAL, Jequal the prime | 
| Command {data records in | 
{ Chaining, 5 | IOAREAL. | 
== a = 
| B. CCW ¥X'0O8', Pointer|TIC to ¥*-8. | 
| to *-8 | | 
SSS SS ee 
}C. CCW X'08', Pointer|TIC to address | 
l to Read CCWs |of read CCWs | 
i (see 2.) fin DTF table. ; 
= Se —— | 
{D. CCW xX'OD*', Pointer|Write key and | 
{ to Key Field |data of prime | 
| of IOAREAL, | data record in | 
| Command | IOAREAL. | 
| Chaining, Key | | 
| Length + Block| | 
| Size | | 
L te ci as et Cl ges a imc sic Ca ein nc inns eae cutis ona | 
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Ze For a read: 











SS ee ee ee 4 
{A. CCW X'31', Pointer|Search identifier] 
; to Seek/Search]{equal the prime f 
| Address Area, |data area using | 
| Command {the pointer, | 
| Chaining, 5 |CCHHR, in the | 
| | seek/search [ 
i Jaddress area in | 
| {the DTF table. | 
| ------------------—-—_- 4 ——_______-__—— | 
iB. CCW X'08', Pointer|TIC to *-8. [ 
( to *-8 | i 
|-—--—_--____- ---—_------——- —-| { 
}C. CCW X*1E*, Pointer|Read count, key, | 
{ to IOAREAL, fand data of prime| 
| Command {data record into | 
| Chaining, | IOAREAL. { 
| 8 + Key I | 
| Length + | { 
| Block Size | | 
a a 


This phase continues to build the CCWs for 
a read or a write until the count for the 
maximum number cf prime records in main 
storage reaches 0. This count is reduced 
by 1 each time the CCWs for a prime data 
record are built. : 


The CCWs built for a read or a write are 
preceded by a long seek CCW and TIC to 
either 1 or 2 depending on the operation to 
be performed. When the last read CCW is 
built, its flag field is set to 0, 
indicating the end of the CCW chain, and 
$$BOISO9 is fetched to search the 
independent overflow area (if specified) 
for the EOF record. 


e For a load type file, to write an EOF 
record at the beginning of the 
independent cverflow area. 


'@ For an add type file, to search the 
independent cverflow area for the EOF 
record. 


Entry: From $$E2OISO7 or $$BOISO8. 


Exits: To the TES processor, $$BOPEN, to 
$$BOIS10, or to the problem progran. 


Method: This B-transient first determines 
if the file has an independent overflow 
area. If there is no independent overflow 
area specified, a test for a load-create 
type file is made. If it is a load-create 
type file, a test for more files to be 
opened is made. If more files are to be 
opened, $$BOPEN is fetched for execution. 
If no more files are to be opened, control 





is returned to the problem program If it 
is not a load-create type file, $$BOIS10 is 
fetched for execution. 


If an independent overflow area is 
specified, a test for file type is made. 
If it is a retrieve or load-extend type 
file, control is returned to either the TES 
processor ($$BOPEN) if more files are to be 
opened or to the problem program. 


If it is a load-create type file, an EOF 
record is written at the beginning of the 
independent overflow area and a test is 
made to determine if a new independent 
overflow extent has been specified. If it. 
has not been specified, the number of 
tracks in the independent overflow area is 
calculated and stored in the DTF table and 
control is returned to either the TES 
processor ($$BOPEN) if more files are to be 
opened or to the problem program. If a new 
overflow extent has been specified, control 
is returned to either the open monitor or 
to the problem progran. 


If it is an add type file, the 
independent overflow area is searched for 
the EOF record. When the EOF record is 
found, the number of tracks in the 
independent overflow area is calculated and 
stored in the DTF table, the last prime 
updated, and $$BOIS10 is fetched to 
validate the last prime data record 
address. 


SA 


Es ie 


$BO 
ha 


Ta) EE 
fel 


SBOIS1 i 
rt na 
Objective; To validate the last prime data 
record address by scanning the prime data 
area for the end-of-file (EOF) record. 


Entry: From $$BOISO9. 


Exit: To the TES processor, $$BOPEN, or to 


the problem program. 





Method: This routine searches for the EOF 
record in the prime data area. When the 
EOF record is read, the last prime data 
record address is saved in the DTF table 
and control is returned to either the TES 
processor ($$BOPEN) if more files are to be 
opened or to the problem progran. 


! 
i 


ose, Charts NA-NC 
Objective; To close the file by updating 
the format-1 and format-2 labels with 
information from the DTFIS table. 

Entry: From the close monitor, $$BCLOSE. 
Exit: To the problem program or to the 


close monitor, $$BCLOSE, if more files are 
to be closed. 


Indexed Sequential Access Method 193 


closed, this phase updates the format-1 
label with information from the DTFIS 
table, and writes the updated label back in 
the VTOC. It then updates the format-2 
label with information from the DTFIS 
table, and writes the updated format-2 
label back in the VTOC. 


For all cther type files, this phase 
updates only the format-2 label with 
information from the DTFIS table. It then 
writes the updated format-2 label back in | 
the vToc. If mere files are to be closed, 
the close monitor, $$BCLOSE, is fetched. 

If no more files are to be closed, control 
returns to the problem progran. 


All communication with the VTOC in this 
phase is done by the CVH. 


$$BORTV1: ISAM REIRVE Open, Phase 1, 


Charts ND-NE 


Objectives To open the RETIRVE part of the 
DTFIS table by reading the format-1 label 
to get information needed for the table. 


e From the open monitor, $$BOPEN2. 


e From the data security message writer, 
$$BODS MW. 


e From $$BORTV2 if a new extent ona 
different logical unit has been found. 


Exits: To $$BORTV2 upon normal completion. 
To $$BOFLPT for DASD file protection. To 
$$BCMSG1, if messages are to be written on 
SYSLOG. To $$BCDSMW to write the data 
security message. 


Method: A test is made to determine if 
entry was made to this phase from a phase 
other then $$BOPEN2. If so, control 
branches to a predetermined location within 
this phase. If not, processing continues 
inline. Next, this phase computes the 
length of the incoming DASD label 
information and gets the address of the 
first extent, The first-time switch is set 
on, and a check is made for the expiration. 
date in the DASD label information. If the 
expiration date is not present, this 
routine gets the retention period for the 
DASD labels and finds the expiration date. 


The format-1 label is then read and 
checked for the data security indicator. 
If the file has not been opened, $$BODSMW 
is fetched to print the data security 
message. After determining the number of 
extents in format-1 label and getting the 
address of the first extent, this phase 
fetches $$BORTV2 for execution. 
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Objectives: To open the RETRVE part of the 
DTFIS table by reading the format-2 label 
to get information needed for the table. 
To insert entries in the DSKXTN table 
located at the end of the DTF table. 


Entry: From $$BORTV1. 


Exits: To $$BOISRP upon normal completion. 
To $$BOFLPT for DASD file protection. To 
$$BOMSG1 if messages are to be written on 
SYSLOG. To $$BORTV1 if a new extent on a 
different logical unit is found. 


Method: A test is made to determine if this 
phase was entered from a phase other than 
S$S$BORTV1. If it was, control branches to a 
predetermined location within this phase. 
If it was not, processing continues inline. 


This phase then gets the address of the 
first extent in the format-1 label and 
tests to determine if an extent is present. 
If an extent is not present, control 
branches to read the format-2 label. 
extent is present, a test is made to 
determine if the first prime data extent 
switch is on. If it is on, an entry is 
made in the DSKXY¥TN table. If it is not on, 
a test is made to determine if the extent 
is a prime data extent. If it is a prime 
data extent, the extent sequence number and 
the extent lower limit are saved and the 
first prime data extent switch is set. 


If an 


The routine then makes an entry in the 
DSKXTN table for each extent. Only three 
extents are possible per volume for an 
indexed sequential file: the 
NMaster/cylinder index area, the prime data 
area, and the independent overflow area. 
Each entry in the DSKXTN table is four 
bytes, containing two bytes of the logical 
unit and two bytes of the cell number. The 
location of the entry within the table is 
determined by multiplying the extent 
sequence number by 4, and adding the result 
to the starting address of the table minus 
4. If the DSKXTN table is full, an error 
condition exists and a message is issued to 
that effect. 


After the DSKXTN entry is made, a test 
is made to determine if the file-protect 
option has been specified. If it has, the 
routine sets up the extent for file protect 
and fetches $$BOFLPT. 


If the file-protect option has not been 
specified or if this phase was entered from 
S$S$BOFLPT, this routine gets the address of 
the next extent in the format-1 label, and 
checks to determine if all extents in the 
label have been processed. If they have 
not been processed, control returns to 
process the next extent. 


When all extents have been processed, 
the first time through B-transient switch 




















Licensed Program - Property of IBM 


is checked. If on, the switch is set off 
and a test is made to determine whether 
this is the first volume. If it is not the 
first volume, an error message is issued. 
If it is the first volume, a test is made 
to determine if the format-2 pointer is 
present in the format-1 label. If it is 
not present, an error message is issued. 
If the format-2 pointer is present, the 
format-2 lakel is read, and the master 
index and cylinder index lower limits from 
the label are saved. 


A check is made to determine if all the 


extents have been processed. If they have 
not been processed, this routine scans the 
SYSRES DASD label information in the label 
Save area to find the next extent ona 
different logical unit, or the end of the 
extents. If a new extent on a different 
logical unit is found, control returns to 
$$BORTV1 to read the volume label and 
process the extents for that logical unit. 


When all extents have been processed, 
this phase sets the file-protect option 
indicator off (if it is on) and exits to 
phase $$BOIS RP. | 
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EXPLANATION OF FLOWCHARY SYN 


DESCRIPTION EXAMPLE 
settee bere ee ee A group of program instructions that perform 
* * a processing function of the program. The | 
: eogeeo : label, if any, is shown above the block. 
* * eeeee 
KEKEEKESRERERERED . * * TRrERENCES 
*B2 * #&€ BBD4, BCB2 
IF ANY ADDITIONAL EXPLANATION IS * * BLJL 
REQUIRED, ITS LOCATION ON THE CHART * 
1S IDENTIFIED BY AN ASTERISK AND é 
THE BLOCK IND. . 
ae START x 
< ABEL geaphaabad se Description or title of a routine that is detail- SEER 4SEEESESERESE 
+—*+—~#—4-4—$~ 9-4-8 ed on another flowchart. The starting label * READ * 
* * of the routine and the flowchart ID appear A RECORD 
* SUBROUTINE  # above aha stripe: * & 
RHEKEKS EEEETEREDE SEEKERS EEEEEEE 
x 
ECL Ree EES : ; : : : or os C4845 49044848 ES 
Fe : An instruction, or group of instructions, that : a" ee seeeTe BGs 
* * changes portion of a routine or initializes a *. YES *— *— $— — 4-4-4 —F—4% 
* PREPARATION * routine for a given condition. *. ERROR oFec cece ee X* * 
= * ° ° * ERROR ROUTINE # 
* * *, o* . * * 
TKERKEREEES *. a CHEEEEEEHEEEEEEEE 
* N . 
: x 
s Chee 
. * * 
x * 64 * 
Sy er ee A group of operations not detailed in the Sette leeesesesees * ae * 
* *PREDEFINED * * flowcharts in this manual, such as user rou- * PROCESS Pd weet 
* * PROCESS * * tines. * THE RECORD * 
* * ** * * 
* * * * * * 
CEEKEREKEKEAERE ES €ECEEEEESEEEDEERE 
x 
HERE] HEE REREERE D uarxl one * 
El Any function of an input/output device or : Tg a decheeaahtah 
* program, usually branching to an t/O routine o* USER *. YES * * * ¢ 
INPUT/OUTPUT to perform the function stated in the block. We, OPTION. ..cteresease ks USER ROUTING. © 
“e. * * * * * 
KEREREEEEEE EEE EEE *. ‘a4 CEREREAERERERSE OS 
* e 
pXoeesccsccccscerescccccees 
o*¥. Points where the program branches to alter- RECALT o%, 
Pg. = rae nate processing, based upon variable con- .* F4 ws : Od Baad ad 
o* *, ditions such as program switch settings and e* RECORD *. YES * MNDIFY + 
*, DECISION Pe test results *, AL TEP ED evreeeeeeee PPT NT * 
*. o® , *. o* *’NSTRUCTIONS # 
*. o* *< .* * * 
2-6 *. RERKEREEEED 
* * NO e 
Shee : : 
* * é 
* G4 *.X. ° 
* * eoXccccccccccccccccecceecece 
* x 
RECPRO o*. 
HEREC] OREREKEES : — "o5 
3 a The beginning or end of a program or routine. .*ALL RECORDS*. NO 
* TERMINAL : we PROCESSED anteees 
SHEKKKEREEEEEED ee. * ‘ 
x, .& x 
* YES EeKEE 
e *BL * 
° * Al* 
. * * 
. * 
° PRINT 
x 
Pais On-page connector. An entry from or an exit 4 TE AHSS eRe Sees eS . 
* C2 *€ to another function on the same ee * END-OF-JoB * 
* * The location in the connector identifies t * * 
ore" block to which entry on a chart is made. TESS eee rete es 
epee Off-page connector. An entry from, or exit 
a hae to, a given point on another flowchart. The 
7 characters in the connector identify the chart 
: and block to which or from which control is 
FILINPT passed. The corresponding label, if any, is 


placed outside the outgoing connector. For 
multiple entries, an asterisk is placed in the 
connector and the locations from which 
contro! is passed are listed nearby. 
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DAN CHARTS 


DAM CHARTS 


Chart AA. TCAMOLT: Input/Output Macros 


mk ek Py? . 4 
* * * 
* A2 * * aS * 
* * * 
AK KK akan 
IJIRON x IJIAFT o*, TAITLOR y 
EKKEK A PEREERAE EES KHEKKAATARARAEKEKE Au *, He tek ee BS te ok 
EEK, TEERAEERED * POAT * *INSEPT CCHH IN * * *, *TIIPLN AJ* 
* DANOD * * RECORD LENGTH * *DTF FRCM OSER*S* -* x, NO Rn Kw km KH HK HK 
* INPUT/OUTPOT * * GIs * «+ +X*® TRK PEF FLD. x oe eX*. TRACK HOLD . ¥®eeee * POTLN CCW * 
* * * BY * ° *SET RCD NO. TO * ° x, .* . x STPTNGC TO * 
RHEKKEAKREKEREE * * . *ZERO IN DTF FLD*¥ ', x, * i *x GPYTF AFTFR * 
‘ REE A KE AEKERKK RE K 7 a KK KE KK .. *. xX PT eC ere eC reCere+re TS 
° . < . ‘. * YPS aiaaiaaied ° 
° e ° o o ° * * e 
‘ a : Fi ‘ . * cu * : 
es e e e e e * * . 
e eréveiee¥ee 6 alee te .7 e e ° "eu se 
e e eo e x e « e 
x ~IJIRZO x . .*, . » 4 TAITERT > 4 
HEB RRKREKE . KHEKKE BORK ERE RK AK E ; B3 *, . om BU ok eek tek kk de kk RS ok ek a 
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* GET * o* READ e NO . SET * ° *1/Q ERROR BIT# 
* USER*S * ° MACRO e*eeXe * NRF BIT * ° * IN USER * 
* IDLOC * *. ° e * ° *EPROR/STATUS * 
* S * e o* @ * * e *x BYTE x 
Per erTerrrrr tit +? fT: *. o* x KRKKRRAEKES < 2k $k KH $k HOR 
e * YES *4KE e e e 
@ e cs e eo 6 
e e * 05 * e@ eovescececere 
e e * * e : e 
‘ ‘ Perr 7 e 
e xX xX e 
xX o*e eX*e IJHIHRE2 @ 
MAK HKK | KERR EE K2 *, K3 a. xX 
* * P 6 x . RHEAKKG RAR KR Ok 
* WOVE X*FF® * o* READ *,. NO * IOLOC e NO * RETURN TO & 
* I * *, ID eXecce *. SPECIFIED. .*eecce * PROBLEM * 
* USER*S IDLOC * *. o* ‘ e ° ° * PROGRAM * 
* * *, * ; *, o* < Pete Prtrrr ert rt 
HED RERA AREER SE %. .? xX e x 
° * YES 24% YES eax 
° ‘ x x ; * * 
° e * A4 * e * 05 * 
X X * * x * * 
KEKE EK KEKE HEGRE ERK 
* * * * *AB * 
* E2 * * €3 * * Fee 
* * * * * * 
KEKE KKH * 
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Chart AE. 


THERESE HHERRHNEE 
* oa * * 
ez | * * * 
#00 OwF ¥r OAOV+# 
tXeewIrOr ere CeO 
*€# LOC Wt +r Odz Jt 
e& URHOr et & ee 
OWI i et He ed IE 
eevee ree 8 OxXt AUs HFevreeeexHeOUiCyr H£eXteoeetFvoeeveeenven se 
e Fe WOM 4 WOEQW € e 
e WMeOOde W> demi Le e 
e WO COA AZM AO e 
e FP HIOZU Fe OPUZUISE ® 
e FCO DYE #F#U QD ° 
e Wt Or pee * ~* ° 
° wit * * % ° 
® ORK HH HHEEHEEE . 
° ee ° 
e -“ ® 
e a ° 
e e 
e e 
e e 
Ye e 
Us ° 
~ 6 ° 
* HRHEEKEEH HHEREEHSE KRHEEKRHEEE ° 
ee x # * * # * e 
xn #¥O WwW * * < # a * ° 
e xe De * % Smwu « a e 
tl *O ete * =e Faw * e 
e © FOS Swe * qo * eee YM # ° Nd 
uw e—2 + Sart * we <t £€ FFM eo HE Y 
auMm e ema e+ * PUP erpwOw * x ££ Ne ™ 
~WOD €£ ee ee exe he F © 8 eee OxXHX > et © ee OxXE YNeIY £ 0 8 OxKKOW me 
FOF % Up 0 & * FL £€ *wD0OQ «* ect *# ™ 
a % Te OrOar * + Oe t> =O £ HE = 
ule Quk. Qs Q wa * woo < # 
* ax *HF#NODTOO* * > * ap oad * 
e *# Zor Le * arZz * * 
* ims * * Www #*€ ee * 
e * =z * * =) * WH * 
* HRA HHH HE ZHHEEHHHE 
2 -_— 
+ 
| oe 
HHH HHH RHEE HE HEAR H HE HHH HHERHE HHH HHREHHRH 
* * * * * * * * * * * * * 
* * * * * * * * * * * * * 
* * "2) * % ~< % * "2) * * * * 2 tf *& et pw *” 
RQONZ 4 * FD * *eTrVaZz * * FD * * l anad * * OOr” * Ca? 4 oS * 
OvO «* + wWO * * Oro * ee wD * * aa * + hee * FRU ee & 
> mae + Dep er MOH et emi * NY * +e VY wom % wu mun * 
e IO>FOF * Yow + JAX O * Yow * * mM * HOKAH Wt % COUILL, ma LL *sy 
© OXHAMOLE-H eC Oe ee OK WWD £ © 6 8 ee OK OMOTE H 0 & oe Oe OKH WLI F 8 0 8 Oo OH ud Heo ee ee OXH#OWORDH © 0 0 0 oe OKHDIOKrAH © 0 OK 
LOr * Xan * an! CO * LAM * * 242 * + tor de * Je LO * 
Ne ZOU N aw & NerZOwae N aw N Q * N ZOUIDG* NO Wwe eee 
D2 ond DDI bbe YW OO SG £ Od & Ww O x * wm aq@wy * Oo Ure aZziow<as 
H#IOLAKS *& * QO * *e#oaeeri * * QO * * - * * UUW Dee) el 1 * a 2 
< * * <p * eZu << %* <p * * * e+ Ww ow * mc * 
* * * * * * * * * * * * s&> * 
* * * * * * * * * * * * * 
HREM HH HERR HHH HHEEHEKHE HHRERHHH HERR HEAR H 
HHHAR HH HHA HE HHREHERHE HHH HH 
* * * * * * * 
*#u OW * * * * * * 
e2#OWwdr + ei + end * * * 
=—7aQ evVI>Iw * #e#WUMNSZ * * 
*#”SLO * HW %* Qow * * * HR 
HOM i ZU exo” QO * eH) OH * Land * * * 
ot oad SH #Q 2am * % J2Q>+-OE # * Wo *% * NN # 
eo ex<toeuig Oe © &e ee eX OTH ££ eee © OK HKOAMHIM<p- H © 0 eee exe SD %* © 8 oxete OM 
#%#OrQOds eel * + om Lor * dW * * * 
HO> Lah & at UOT ah ZOU & at YU * eet 
Oo WQreUWr QO aOR & Ud [° 4 * 
|(x<O * #u LO *# #O0ALS % * 
ReWMuwN RUA * tak < & w * 
ew aa * OO * * * * * 
#O < * * * * * * * 
HHe#Haheet HHetennee HHH E HAHAH HE 
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RRA ATL RARKRERKEE REE ADRERRERERE ERK AZ ERREEKEEEK EREDAR AREKEEE 
* DAMOD * * DAMOD * * DAMODV % * DANOD * 
* CONTROL ENTRY * * FREE ENTRY * * CONTROL ENTRY * * REE ENTRY * 

RRKEKKKKEKKKKKKEEK ERKAKKKAAAKKKEK KEKRKKKKSKKKRKK EK RRAMRAREKRAEAREKKKREK 

IJICTL x IJIPREE Xx IJISCTL x IJISFREE ¥ 
RKKEKKE [RERKRKKAHRE REKKKHIRKKREKE EK EEKKHHZIRARARHAHKERE HSHERERRYKKRKKKRERE 
* * * x * * * *x 
*TURN ON CONTROL* * TURN ON * * TORN ON * * TURN ON 
* INDICATOR  * *PREE INDICATOR * * CONTROL * *PPRR INDICATOP * 
* * * * INDICATOR * * * 
* * x " * * * * 
KRHKKKKAKAKEKAKKEKKH RHMKKARRARKKKAKAESE KEKKAKRKARAEKKAKEKKSE KEARKAKERKAKKKRAEKEK & 
Ls, EIN Tat OR DEAE SS Weta eer OAS er set Ceca aah Me OS coe nee ane 
IJICTL1 x IJISCTL1 Xx 
KEKKKCIREKEAEKEKE REKARCZIRARARAKKES 
* * * * 
* STORE * * STORE * 
*USER REGISTERS * *OSER REGISTERS * 
» * x * 
REKMKAKAKKKAKAKKKEKS KEEARKAKKARKKKKEKK 
x x 
PARK RRR E EE RE RERRED FARE ARE EEE 
*IJICVP AG* *IJICVS AG*® 
Rm K we K mK we Ke Kw Kae Kw k- KRaeMaka kota Ko Koa Ke K 
* SELK * * SEEK * 
*OVERLAP ROUTINE* *OVERLAP ROUTINE* 
RaAKRKKKCKAHKARRKEER REKKAKKKRKAKKEKER HK 
x Xx 
o*, o*, 
E1 *, E3 *, 
.* *, * *, 
* IS IT 9*, NO -* IS IT '*, NO 
Me CONTROL ese do sete tole 6.0020 6 Clee eeue *. CONTROL gr ttt e ee ecoeeesces 
ie, ” : ae 7 a ( 
*, ee e *, * s. 
* YES . * YES ‘ 
x Xx x x 
RRP YL RERREREEKRERE HEAP DRAKRHAERED EK KHAE IRABREKE KH EAE KERPYRAAEKKAAEERER 
* * * * * * * * 
svc 0 SVC 36 svc 0 S¥C 36 
* * * * ' * * * 
RAEKAREKARKKKKAEKKKSH RKKAKKKVKRKERKHKKEK KEEKKKKAKKRKARKREKAK RHEKRERKKKKAKKKAERE 
OMe ol eacaice sc aea ce dete NE nt tl el cant Noe BE cosh aces AS Nd 
IJIREST x IJISREST xX 
RHKRKEG TRAKKAKARRER Pre ES eRe EE LEE COS FS 
* * * * 
* TURN OPF * * TURN CPP * 
* CONTROL/PREE * * CONTRCL/FREE * 
* INDICATOR = * * INDICATOR = * 
KEERKAEAAKHKHKKKKEK KEKKARRKAKKAKKA KK 
IJIWND x LJISWND j 


x 
HR A ee HR COREY ORM RES RED 
* * * 


* RESTORE * * RESTORE 
ZUSER REGISTERS : S USER REGISTERS 


ee HH 


* * * 
HER DARA RARER RE ER EERRRERRARAERR KK 
x x 

HERR 1 RARERERE EH ERR IRHAERER ER 

* RETOPN TO * * RETURN TO * 
SPROBLEA PROGRAMS $ PROBLEM PROGRARE 
HR RAKARERDEEKEH BERRA RERREREA RE 

* 
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Chart AG. DAMOD: 


RE HRADRARERR ARR 
CAMOD * 
SEEK OVERLAP * 
SUBROUTINE * 
PET rE COLE ELL Sef 


“etn 


e 
e 
e 
e 
e 
' 
cy 
=z 
* 
* 


* 
com °¢ 
tal rig SO 8 8 8 


. * 
* NO 


eoereeretee tere ee Fore ee 
io) 
N 


e be36 eis 06 ee Ke 

ae 
* e 
4* IJIOV2 x 

* EERE DRAREEKKKEKE 

* CALCULATE 

* ADDRUSS OF 

eeeeeeX® CCW CHAIN 

* BUILD AREA 


HR HK HA HK Re 


HHH 


pbde ee ee 


KEKKKEDRERERKKEKE 
* * 


* OPTAIN 
* SEEKADP FROM 
: SEEK CCW 

RERKR ARR A AE AR EER 


ete et 


eee oo BH HINO Hogs eo te et © 


be 


KARR QAR 
* RETURN TO * 
* CALLING ROUTINES 

HR RAH ep fe ee 
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Chart AHs DAMOLT: Seek Overlap Subroutine (Part 2 of 2) 
Pree KKK REE 
*AG * * * * * 
* C2* * AZ * * AS * 
* * * * * * 
* KEKK KASK 
° X xX 
x o*, IJ IXNF o*. 
pote Abeeee ene ne A3 *. RKAGKKKERKE A5 e 
GE e*END OF *. TI * o* *. 
USER’ Ss SEEK * ° DSKXTNT *. YES * FOR EXTENT * cl - YES 
* ADDRESS FROM *# *. TABLE oF ee wc ee ee X¥* NOT FOUND * *. ALTERATION  .¥ecce 
* OTF TABLE * *. REACHED .* +. IN DSKXITINT * *.FACTOR = . ° 
* * e o* B * * 1 .* ° 
KRHRRAKKHEEKKEKEAESDK *, 4k * pate seas e e® is 
e * NO e * NO e 
e e x e ° 
7 a KKK KK ° ° 
xX e *AD * ° ° 
o*, X * 05* x e 
Bl *. HKKKEBYD SEAKEKKEKK RHKRHKBHS Hoke RHE KK * * KKK RKB S KERKEEKEKEK ° 
* *. * CONVERT FIRST * *GET TTT2 VALUE * * * DIVIDE RECORD * e 
e* RELTYPE = *,. * 8 BYTES OF * * QF CURRENT * YTJ1TOM * TTT VALUE * ° 
*,. (IN OTF) eKecccceeeX*ADDOR (TRK NOW) * * ENTRY IN * * "DIVIDEND! * ° 
*. o* TO HEX FORM * * THE DSKXTNT * * Cl ALTERATION * e 
*. o* * TTT (3 BYTES) * * TABLE * FACTOR e 
*,. _* REKEKKBAKARAKEEKK MAKER KEKE KKK EK KRAKKEAKAAAKEHEKEKER ° 
* HEX ‘ e ° ° 
IJINCO x x x x e 
HHRRKEC | KKKKSEHKA SH SRKKAC 2 SHREK EEE RHEKKEKC FKKKKKKHEKKE KKKEKCS EERE SERRE - 
* ALIGN REL * * * * SUBTRACT TTT2 * *STORE QOUTIENT * e 
* AODR TTT * * aye eecne * * QF CURRENT * * (HIGH ORDER * e 
* VALUE TQ * * UE * * OSKXTNT ENTRY * * REG) IN Cl * e 
* FULLWORD * * IN RECT STER * * FROM _USER®S * * SEEK ADORESS * e 
* * * * * UPDATED TTT * * ( ACTUAL) * e 
RHEKKAKEAKEAKED DE PEER TEESE EE EE SEE EF We KK HE HK EK KRKKKKKAAKKEKEKR SEEKS . 
x x a x : 
RHKKKK LS) | KE ES PES SS ISVA LE LE SE SS FY 03 x, Dt Ocean cen e 
INSERT REL * * CONVERT LAST * o* x, RESTORE ° 
* ADOR R VALUE * * 2 BYTES OF * NO . RESULT e *REMAINOER (LOW * e 
* INTO SEEK * *ADDR (RCO NO.) * ece%e NEGATIVE o* * ORDER REG) * ° 
* ADDRESS IN * * TO HEX FORM * ° . ° * NEW DIVIDEND * e 
* OTF TABLE * * R (1 BYTE) * ° *, o* * * e 
PEEP EEE SSS EEE tS SE PEE SES SELES ELE S FE SE x We 6 RAK RKKHAAKK EAHA EK e 
‘ ° +H * YES : ° 
e e * * a e 
e e * Gl * e oXecccccecece 
e e * * e e 
e 3 eKKS e e 
x x x TITOV2 x 
HRHKKKE KAKA NE ad cet KKK KK EZ RRKKAKEE ES RAaKRKES KAKRKKK HK ES 
* * * ea nuee ¥STORE M a B2 . * DY VIDE 
* Save. USER * * R VALUE IN * VALUES FROM * OYVIDENO BY * 
* TT * * SE EK ADDRESS * CURRENT SKXTNTS * C2, ALTERATION * 
* IN REGTSTER * * IN OTF TABLE * E ald N SEEK * *  @FACTOR * 
* * * * : Vanes’ * * * 
RHAKAKEEKKE SHEESH PEL ESE SEE ETE EE SES Pe tn ees KHKEARKRARHAHKKAEREKKSE 
eXeccccvecceveenscvecevsecoe e ® 
Ah x xX x 
REKE | KEKE EKG HE KEKKAE ZH KKHRHERK KE KARRKE SE KAKA ARESK 
* LOAD REG * *GET LOWER LIMIT*® *STORE QUOTIENT * 
* WITH ADDRESS * * (TTT1) OF THE * * (HIGH ORDER * 
* OF OSKXTNT * *CURRENT OSKXINT* * REG) IN C2 * 
* TABLE ~8 * * TABLE EXTENT * * SEEK ADORESS * 
* * ENTRY * (ACTUAL) * 
EAR HKEKGHEEGESS CKKRKEKKKAKKKKAKKESK EKAKEKARKERHAKEKEEKEKEK 
KEK . . e 
* * e e e 
* Gl *.X. ° ° 
* * ‘i é 
*EKE ° e x 
IJILBK X xX o*, 
EKERKKG LHS HDS RHRKKG ZK EKRERE KH ; G5 *, 
* SAVE USER * * CALCULATE * o* *. 
* TTT VALUE * * AND SAVE * YES .* Hi *. 
* IN * * RECONVERS ION * eecccccccccscoscce Xe ALTERATION o* v 
* REGISTER 11 * * FACTOR * e *.FACTOR =. 
* * * * e *, 1 o* 
KHKRAKKEREKEKAKEHKS SE KREKKKKAKKEKKKEKE e x. * 
° ‘ . * NO 
e e oXeoeccoscevee e 
X X TJ IOv3 x e xX 
SKREEKH 1 KEK EKESEDS RHA MAKE AK HAH K EK REKARKHGRRAERHKKREKKH ‘ KKK S EKKKEEKK EK 
*SAVE CUMULATIVE* ADD USER'S * * STORE * e * RESTORE 
* TRACK TOTAL * * ORIGINAL TIT * a eoRaeR n (LOW : ° *REMATNOER (LOW * 
* (TTT2) OF * * VALUE TO TTT1 * DER REG) e * QRDER REG) * 
*PREVIOUS ENTRY * * TO GET TTT * + aD IN SEEK * e * NEW OIVIDEND * 
* IN DSKXTNT * * RECORD * * ADDR (ACTUAL) * ° * 
EREKEKAKKEKEVEKESAS RERKRARKEKAKEEKAEEKK KKKREKAKEKAEKAAAKEK é RAEKRAKRRAERAKEEEKKEK 
e x xX e e 
‘ ERK RKKBH 3 . 
° * * *AG * e e 
X * AS * * D2* ° x 
EEEKKS 1 SKKEAEKEDS * * x *& ‘se KBRHAK JF EAKKKEKEEEEK 
* AOC The VALUE * HK * ° OF VIDE 
* OF PREVIOUS 1J10V2 ° * DIVIDEND BY * 
* DSKXINT ENTRY * ° * Hl ALTERATION * 
* TO Ueetce * ° * FACTOR : 
REEKKKKAEKEHKIKESHE ° KEKEKAHKAAKKEREKERE 
e e e 
x e x 
SKEKEK LEEKS EEDSE = ERERKKS EAAKERKAEKE 
Phy at OSKXTNT # e *STORE QUOTIENT * 
TO POINT * e * (HIGH ORDER * 
: ch CURRENT * eeccce REG) IN H1 * 
: TABLE ENTRY #* SEEK ADDRESS * 
BYTES * ( AC TUAL ) 
sebencereessesass KHKEKAEAKAKKKEKEE 
Xx 
EEX 
* AZ * 
* % 
#%t% 
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Chart AJ. DAMOD and DAMODV: Channel Program Builder Subroutine 
MOTE--THIS SUBPNUTINE ITS USED 
IN BOTH DAMOD AND OAMOOV. 
BERK A)EKEREEEKDY THE LABELS SHOWN ON THIS 
* DAMOO/DAMOOV * FLOWCHART APE SPECEDED BY 
*CH.PROGR. BLOR.* TJTS FAR DAMONOV 
* SUBROUTINE * INSTEAD OF IT Jl 
EREKEKEKEKESEKEGDD 
RES . 
BY * e 
* B61 *.X. 
* * se 
eae 7 
IJTBLO x 
RKEKAGD | HARKER DE 
SUPDATE POINTERS* 
* TO NEXT CCW * 
* STRING NUMBER *# 
*AND BUILD AREA . 
REREEKKEKEREKEGESDE 
x 
HEREC 1 OEAKKREEESD 
ISOLATE * 
*RELATIVE PTR TC? 
* BASIC CCU * 
: NEEDED : 
ERRKKEKHKEKEREESD 
x 
o* IJITICR o¥%. TJITIc 
OL ee O02 = RHKKEKDZD CHAK EKKE KK 
i ®, is *, * * 
o* CCW TO BE *. YES o* RPS *. NO * STORE CCW ¥ 
*. A TIc eFecevceeeX*e CCh BYTE eFecccc ce eX® AODRESS * 
° e *. e * IN CCW * 
*, o* *. Pi * * 
*. %. « * RERAKCKAKAAKKEKKKEEK 
* NO * YES ° 
xX x x 
SREKKE |] KKK KESDE KEKE 2 O4499E4KSF SEKEKEZRKKEKKKKEKK 
* * * * * * 
* MOVE BASIC *# * PCVE IN * * INSERT TIC * 
* TO BUILOING * * RPS CCW * * COMMAND CODE * 
: AREA : : : : IN TIC CCW : 
KEKKEKSEKEKEREKEBS ERESKAESSSSSKS KTS RKRREKKHKKEKEAKE EK 
° e x 
x e 
ote e 
Fl *. e 
o* *. e 
° BASIC *,. NO ° 
*. CCW To BE o%e eee e 
* MOOIFIECO . ° e 
*. o* e id 
*. .* x ° 
* YES Per S| ‘ 
° + * ° 
. # Bl * ° 
° * * ° 
7 44% e 
x e 
o*, TJIFLG e 
Gl *. SEEK EG 2 04494644944 e 
o* ONLY *. * ALTER FLAGS * . 
o*FLAG FIELD *. YES * IN CCW BITS * . 
e Ta BE e eacccceeX*® FROM CCW * e 
* MODIFIED .* x * STRING NUMBER be e 
*,. .* e SHEED HSEHESEEKETES e 
*x NO e e e 
e e eXcccccecccccnsccesseseseces 
X ° x 
o*. eT JIROY oe 
H1 *. ° +. , 
o* =, e o*¥ x 
YES .* OP CODE *. e o* END OF *. NO 
ooeke TO BE o* e *, STRING o*ecee 
ee CHANGEC o* a *, e e 
*, o* s *. o* e 
*,. * e 4. o# xX 
* NO e * YES eK 
e e e * * 
e e e * Bl * 
e @ e ? * 
° e ? Pe tS 
x e e 
£4 JL KEKE SEE e xX 
* * e BEKK IZ FSEBAKESSE 
* SET * 7 +. * 
* MULTITRACK * ° * RETURN TO * 
* BIT ONS + e *CALLIAG ROUTINE* 
e PES ELSES EE EE SF FS 
SKKKEKKEKES é 
ecccccccecXe e 
IJ TwWRI x ° 
BERKSK 14464454494 e 
* * e 
* ALTER OR * ° 
* RESTORE *eccces 
be COMMANO CODE 
SEKKEKKKERKAEECEEBSE 
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Chart AK. DAMODV: InputysOutput Macros (Part 1 of 5) 
EEE «KE 
x * * * 
* A2 * * Ad * 
* x * + 
eeeK KE 
1 JI SGOL x x 
KEAZEKEKEEKE FEEBEAZTEREREKEEKEK 
HERKAL THERE SERS *SET RECORD * *1 JISBLD AJt 
* DAMC DV * *ALOCKSIZE EQ * +-#—#- $— #- 4-8-4 ~ 4 
* INPUT/OUTPUT * *BLOCKSIZE, SET * * BUILD * 
* MACROS * # WER INDIC- # CCW CHAIN * 
SHRHKEST ERASE TEE ATOR * * 
é SEKEKKKEKEKE SEKKKKCKKEKKEKKKE KS 
e e x 
x x o*, 
SEZ] KKH EREKKHAPREEEKSEEREK 83 *. 
* MODIFY «* * [INITIALIZE #* -* ¥ 
* MACRO # * BASIC RD DATA * -* WRITE . YES 
* SWITCH FOR * *CCW BYTE COUNT * #. AFTER CR otecee 
* ~ PROPER * * WITH RECORD * - WRITE « 
* MACRO * *BLOCKSIZE (LL) # *, RO .* 5 
KARERERTE RE KEKKKEREEEE HERE EK *, 4 x 
6 * *NO SHKKS 
‘ : : *AM ¢ 
eo oe e td A3* 
: . * % 
e e eo * 
eo e x 
LJISSTO x x o*. 
SEEKECLEKEKEERERE SEKSEKL DEKEKKEEERES C3 *. 
* STORE USER*S * * ZERO BYTES 2. * .* *. 
* REGISTERS IN * *AND 3 OF BLOCK * -* VARIABLE #. NO 
+ SAVE AREA * * AND SEGMENT * #. RECORDS  .#eecc 
* SPECIFIED BY * * DESCRIPTOR * *. : 
SUSER®S REGISTER® WORDS * *. .* . *AK1-Al 
SKKERKKEKKKKKKE SE SREKKKKKEEKE KEKE EE *. .* x 
- zm *VES KKK 
- g REFERENCES #408 * * * 
e las TO-- * * * - * &€ 
3 AME3, AMK3, © tise * * 
. ; AK1B3 eee 7% * 
e x KEKE xX 
IVISSTRT  X ai€. .*. 
TED] EKER ES D2 *. 03 *, 
% * * ee, *, 
* RESET * NO .*® VARUNB *®. NO .® TRACK ®*, 
* ERROR BYTE IN *® eee. RECORDS .* wees Be OLD -* 
* OTF BYTE * P *. -* ‘ : -* 
* * é *, o* ‘a *, o*® 
KEKKKKEKREEKEK xX *. .% e *, % 
: +e Oe *YES : VES 
e * e e e 
e * F2 + e e e 
: * * ‘ . ° 
‘a Pe SS ‘’ ee * 
x e e x 
o*e se oe es 
El *. SKEKKEDSTSEREEEEESE e €3 *,. 
-* *, * PUT PROPER * " * +. 
YES .# WRITE +. *RECCRD BLKSIZE * XYES .# WRITE *&. 
ese*. EGF RECORD c® * IN RECORD AND * on as AFTER * 
. * * BLOCK DESCR * : *, ‘ 
: *. .* * Wl * " *. -* 
x ‘ee SEKKEKEKKKESESKEKEKEE ~ *, ~* 
eee *NO < Ps *NO 
% * * SEE « es es 
* G2 * : * * « - Z 
* + : * F2 #... 7 7 
ekES * x e a “i Ps 
xX EREX 7 ‘os < 
o*. Xx a x 
Fl Be REKEKE PECKKEEKEEE ‘ SHEE FEREKHKKKE RES 
-* *. * SET BASIC RDD * ¥ 
.* *. YES *CCW BYTE COUNT * —< * SVC 35 
*. READ MACRO .#..06 * TO 8 BYTES  *.eeee « EXCP/HOLD 
+, * * CONTROL woRDS * .. 
*, -* : * IF REQUIRED * .. 
eo o® e SEKKKKKEKEKKEEKEE oe oo KEEEKKEKKESREKEKKKEEE 
*NO e oe 2 e 
e = eee e = e 
ae 2s * * - e eo @eeeeeosvee ese 
e & x G2 Beee e e e 
e oe * x e a e oe 
- : eee, e: % < 
LZ ISWRT X - IJISSEQF Xx os ; 
REEKK, | KKKREKER KE = SHRKESE 2ZEKEKEKRESE o-6 SHEKEG FHSCKKKEKKERE Ps 
* INITIALIZE *® 4 * ee pe 
* BASIC RDO CCw * 3 ¢ * SET RECORD * xX. *#* SVC O * 4 
*HYTE COUNT WITH®  « SLENGTH REGISTER#e cee 000X EXCP ‘ 
*SEGMENT LENGTH ® = ¢ * CONTENTS=CNE * * : 
* FROM 1/0 AREA * ‘ * z . 
HSRKEHAREKRAKERREKAKE * SEEKKKEKKEKEKESHKEKE > KS*ISRSSKSSEKSHEHEEEKSE } 
e e@eeeeeoenmweaneeneaeseaee e 00:0 0:6:600 6.0 
x e e e 
ot. X ; x 
HL * CREE ZEKEEEKEREE is THERE FERRER ERREE 
-* IS 9 *, * SET * 3 * * * 
-* SEG TO BE *. NO * BYTE CCUNT *  . * * SVC 36 * & 
*. WRITTEN A .®ecee * IN BASIC RDD * =. * *FREE TRACK * © 
*.NULL SEG . ¢ * CCW EQUAL TO * . * *1F REQUIRED® © 
*€. .* 7 *  BLOCKS{ZE * . * * + 
se, 4 x KKKESESKEEETKEEKKE a KEKKKEKKEKEKKKKESSE 
*YES ete ; ‘ 
os * x é 6. PEE S . 
: * a2 é ; * o'—" 
* ¢ * a ° * J3 Beee 
e eat oXeccccecvcce * * eo : 
xX : eee S 
IJISANUL  .¥. 1J1SRON x ‘ 
Jl *, KEKESE 2PEKKEKEEEEE xX 
* *,. * USING MACRO e SERS JZ SEREKEREKE 
§ KEYED . NO * Sw TCH * * RETURN TO. ®* 
#.  =RECCRDS ee err * VALUE * + PROBLEM + 
7 ‘ : * GET ADORESS * PRCGRAM * 
Be a*¥ ‘e * OF CCW STRING * KORKEKEKEREEKEKE 
*, .* x SHKHECHSKEREKEKR EES 
*YES ates . 
: * * . 
* F2 ¢ ‘ 
7 * * . 
e eek e 
Ty TSSWL x x 
EK LEKEEE SE SESCHKKAETKKAEKEKER 
* * *1 JI SOVP BE® 
* SET WLR * ‘*-¢—-K- 4-4-4 —-4- 4-8 
*  INOICATOR * * CONTROL * 
* * * EK 
* * * 
SHKKKEKEEK EK SKEKKEKEKEKESKEKES 
x x 
eeER Pe f 3 
* * * * 
* J3 * * AZ *% 
* pa * e 
eee REE 
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Chart AK1. DAMODV: Input/Output Macros (Part 2 of 5) 


CeEKE KER 
AK * * * 
* C3 * Ad * 
* * * * 
* #2E 
x TJLSTI o*. Xx 
SKEKALERKEREER EEE A2 *, KRERKAZKEKHEKEERSE 
ie) o* a *1TJISBLO AJ © 
* EXECUTE * o* {1D0L0C *. NO 4-4 -k— 4— &-4-*-— 4-8 
CHANNEL PROGRAM *. SPECIFIED .¥..ee * BUILO WRITE * 
* (READ) * *. o* . si CCW STRING : 
*. o* eo 
EREKSEKEKEKEKEEKEE ; *. ,* ‘. KEKKKEEEEKEKEKE EE 
° *YES . . 
es oe e xX 
xX TJISNL x . o*, 
THEKCHE LEEK KERES REEKEKH2KKKEEKERES 7 B3 *. 
* * * *SUBTRACT 8 FROM ° 
* * CT * *CCW BUILD AREA * ° o* DASD *. 00 
* * WAIT IF *® * * ADOR FOR RDID * 2 *,. SEGMENT oF ecece ; 
* * REQUIRED ®* * * CCW ° *. YPE * . 
* x * * * s *, o* . 
THAKKKKEEKEKRKKEEKE EKKKKEKEKEKKKKKEEE < *. .* x 
. A . *€01 KEKE 
° e e e eAK ** 
e s e e * D3* 
es e oe x * * 
r) eXecevvseverseos ¥K EK * 
x a * * 
o*. I1JISTK X * A2 * 
Cl *, EKEKECDEKKEERERESE * * 
e«* NO * STORE * ** 4% : 
«* RECORD *. YES *READ/WRITE DATA*® 
FOUND oF cece * CCW ADDRESS *& 
*.CONDIT [ON.* = € IN SPNUNB * 
*. o* e * WORKAREA * 
e. 5& x EKEKEKKEKEKREEKEES 
*NO KEK s 
é *AM % ° 
e * G2 ° 
° * * ° 
e * e 
X IJ INRF x 
o%e IJISTT o ¥. 
Ol *. *, 
o# x, * *, 
o* EOF *. YES «* SEARCH BY *. YES 
*. ENCOUNTERED .*..6 *. KEY ON READ .*.e0e 
*, o® ° *. MACRO .* e 
*. o* e *, o* e 
*. ~* x *. 4s x 
*NO KEKE *NO EEE 
° *#AM © ° *AL * 
° * GLt ° * AXP 
3 *x * é * 
e * e * 
X IJ TSWNO x IJISKS 
o*e o ®, 
El *. E2 *. 
o% * * *,. 
e* END OF *. YES * WRITE * 
#. CYLINDER oFecce *. MACRO o*. cee 
. o* e *. * NO e 
e. o* ° *, o% ° 
ee. 2% xX *. .* x 
*NO SEKKE *YES SEEKS 
° *AM © . *AL * 
° * G2t ° * E4* 
" * * s * 
a ~ * 
« TJ INRF ° TJlscGs 
IuI3 FD x I JI SSF X 
SHEKEL] KEKE ERSE CHF 2EKKKERE 
* SET BASIC RDD * * SET TEMP * 
*CCw BYTE COUNT * * -SWITCH IN * 
* LENGTH OF SEG * * SPNUNB AREA #* 
* (LL) + 4 * * OF DIF 
* * * TABLE * 
RHEKKREKEKEKEKES HK RKEKKEKESE EEK 
x TJISVT x 
PREKKG ]LEEKKEKEREE REREEGIOREEKEREES 
* LOAD SEGMENT * * MOVE ADDR OF * 
*LENGTH (LL) IF *® * ROD (VERIFY) * 
SEGMENT JUST * * CCw TO SECCND * 
* READ INTO RCD * * ADOR LOC IN *# 
* LENGTH REG * *SPNUNB WORKAREA® 
CEREEEEKH KEKKEK EE SREEKEKERKEKKEKEEE 
x ° 
IJISPW o*. x 
HL *. EKKKKHIKEEEEKEESE 
e* IS *. *SUBTRACT 8 FROM* 
e*SEG NOW ON ®. YES *CCwW BUILD AREA * 
*. DASD A NULL .*ecee * POINTER TC * 
*. SEGMENT .* ° *BYPASS RDKD CCwe 
*. o* ° * IF REQUIRED #*# 
*, .* x eEKKKKEKEEKKEREREES 
*NO €€&eet “ 
é *AM & ° 
. * E2% ° 
° * * ° 
2 *x eo 
e IJISERF ° 
xX ISVTl xX 
SEKKK SL EKEKRERERE CEKEK IPEKEKKEKEKE 
*INITIALIZE CCw * * SUBTRACT 24 *® 
* BUILD AREA * *FROM CCW BUILD * 
* POINTER WITH * *AREA POINTER TO* 
# STARTING ADOR * *GET ADOR OF WRD® 
* - 32 BYTES * * CCw * 
KROKKAKHKKEREEE EE KKSEKEEKEKEREREEEDR 
° x 
. eeKKE 
° SAL ¢ 
x * AL* 
SEKKSE CK |) EKER EE * * 
*ADD 16 TO ADDR * * 


* OF CCW BUILD * 
#AREA POINTER TO* 
* RETAIN FIRST * 


* Two CCW * 
SEAKEKEKKEE EERE EE 
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Chart AL. 


CAMOLV: 


Input/Output Macros (Part 3 of 


onnes 2298 
@AK * * 
* 358 * a3 ® 
a & * * 
* RBS 
eeenn . 
: *AK * 
x * D5*® IJISKS zx 
RHKRBR) 1 AKAAEEREEED s € BERL] 3IKSVCAKERESS 
* STORE ADDR OF * * SINTTIALIZE cce * 
* WRD CCR In * : BUILD AREA * 
* FIRST ADDR * Laueaeede POINTER WITH 
* “IR SPNUNB STARTING * 
*  GOPKAREA 3 ADDRESS 32. 
RAARSRALAKEARARIAKASS KEKKAKRREKKAEAKEES 
IJISWC, x IJISKS1 x 
PLS SE SEREOHZ4OS9RSEERE 
*RESET TESP * * MOVE PROPER * 
* SWITCH IN * * CCW'S TO CCH + 
*SPNONS AREA OF * * CHAIN IN CCH * 
* DIF ABLE. - ¢ BUILD AREA + 
RAEKARAESERS EEKAEKAEARHKARKEKEE 
‘ x 
x *. 
BHKEEKRC 1EKREEKEAES c3 *. 
* MOVE LENGTH * .* *, 
* OF ROD {ELD & .* READ *, 
* TO BE WRITTEN * *, KEY MACRO 
* To WRD CCW * *, ‘ 
* BYTE COUNT * *, .* 
RKARKRRAKCRKKAKKAER *, .® 
: * YES 
: x 
x IJISKI1 .*, 
WEKBKY TRKKAAAKERAE RHEKEKH QRRABKHAAKE D3 a, 
* MOVE BLESIZE TO* * STORE ADIR OF * ‘ *, 
* RDD + 1 * VERIPY RDD YES .* VERIFY *. 
CCH BYTE COUNT * IN SPHONE AREA *X...0.000%2 OPTION .* 
* IF REQUIRED * * In DT? TABLE * *. SPECIFIED. * 
pudateeseceweades KEREAKKERRAKLAERELKRS “e, * 
‘ ‘ *" HO 
IJISVSG x i IJISKIR x 
nega a ee Pa ead 2 steams Pagal edishdiadded 
SVC 
* EXECUTE * *RESTORE POINTER? * SET SLI AND * 
CHANNEL * T0 FIRST RDD * * CC BITS ON * 
* PROGRAM = * cca * * “RDD Ccw # 
SaBITE a * * 
RERAKSKEALARERKARARSE RHEKKAKERALRAKARERE REKKKKEARKAK 
Z - Dnt bce era due te 
x x -IJTSK} x 
SasOnP Ipeeesesess SEPQIAKKARES EEKERPZ SEAS EEE EES 
** * SET SKIP * ; STORE ADDR OF * 
* * $¥c 7 * : * AND c¢ BITS * . *® READ DATA CCW * 
* * WAIT ** * IN VERIFY RDD *......  *IN SPNUNB AREA * 
* *IF REQUIRED* ¢ *. ccw S, * OF DIF TABLE * 
peraeroesensaeske RRKBKAKK HH HH RERKKKAAEKASEAKERE 
x 
GT o*, RHERRGQREREE EERE S HECRKGZEESEREREED 
F : *IJISSTCE BP* * MOVE RDID CCW * 
00 .* SEGMENT *. 01 = #=#=#=4-%~ to 8-8-4 + TO NEIT * 
vee TYPE GRITTEN 1.) ......48 FRE * * POSITION IN * 
* * TRACK * * ccH BUILD * 
5 “ee, ye REKRE SEARED RE ERD CEREREERER ERED BE 
eEK * 10 PS ‘e 
* * -OR 11 ; ; 
* K5 * e es e 
* * e e e 
HK é ‘ s 
e zx a 
IJISNF x IJISTKW  .*, x 
REEAE HT RRAREER EER H2. *, PE EEE EES ELL 
* * * *, * MODIFY RDID * 
* SAVE SEGMENT * -* SEARCH *, YES * CORRAND CODE * 
*CONTROL PLAG IN*® *, BY KEY ee * FOR MO * 
* 1/0 AREA * , * % * TRACK rey) . 
ERERRAR RRR ARERE RES a x ECKEERAARERS EEE EH 
. * NO KEK 4 
e e * * e 
; ; * AZ * : 
. : * * 
: ERE : 
x IJISKIP x IJLSKIF x 
RHEART 1 AREAEEE EER RRR JQRARRERE RES RET ETeree 
* RESTORE BLOCK * * CHANGE * * eset, * 
* AND SEGMENT * * WRKD AND RDKD * * DIRED * 
* DESCRIPTOR * * CCW TO o” pLAg BYTES # 
* WORDS * * TIC * + 8 *AND SWITCHES * 
* * * ge REQUIRED | |* 
RHERAKAHAKKARKE HERE REKRKKRREEKRKKEKKE Teeaasanenan. 
x : ‘ 
o*, e xX 
K1 =, s REKEBKZSRAREKAKKES 
.* *, . * MOVE IDLOC * 
-* SEGNENT *. YES ‘ * CCHHR PROS * 
*, TYPE = 10 ee A * FILENAME.I * 
*, ; * * FILENABE.S * 
*, ; : : * DTP TABLES _ * 
» ®l ® IJIWLR i. SEKKKAREREKKKA KE & 
* NO KRAKE * Pe 
e *AK * e e 
e * E1* 0 bi6s0' 0.8 e'e ele 6.0106 010 60-016 00-60 os 
x + * x 
RREK EEK 
* * * 
* £4\* * 2G * 
x * 
KK REE 
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NO 


oMecccccce 


Licensed 


>) 


Xecccccsccccccccseeseccceee 


SHEER _O SHEAR RERER 
* ADD 24 TO CCR * 
* BOILD ARBA * 
* POINTER FOR * 
: VERIPY CCWS : 


BRARERAKARERRERREEB 


eoeeee oq 


R*COSRRR RRR 
* TENPORARY * 
SWITCH IR * 
* SPNONB AREA * 


REPER ENCES 
TO ALES: 
ARES, AMC2 


REKKE 
* * 


x 8h 
x 


oo 


IJISGs x 
SRAERLY ERAREARERR 


ager RN* 
Rake haka Hohe Hoke R 
Xt GET NEXT * 
. pe SEEK ADR od 


TKRERSARHKKRAKAREARE 


* . 

B& * . 

eens 

x 
SHERRPURE RS RREREE 


* GET IN AREA * 


LAST * 

* BYTES, LNIT. * 
RDb * 
REREKRKERKATASRARAK 

x 

RAKERAGYREKRARAEARAEKE 
* OPDATE DATA * 
* ADDRESS * 
sVERIPY PDD FOP * 
* NEXT SEGNENT * 
* TIP REQUIRED * 
KERAKERARKKEKEKAAERE 


IJISVR 


KERR GREREARRRARES 
v 


* EX ECOTE * 
CHANNEL PROGPAM 
* (READ) * 


KRERERREREREERESE 
i 
HERAT YRERERERERE 
** * x * 
Be. NCI oa 
- * WA * * 
* SIF REQOI REDS * 
ceaesansbanenuans 
Xx 
o*, 
Ky" ° a, 
™ 
-*” SEGMENT | *, 
*, READ A NOLL . 
*, SEGMENT . 
*#, * 
*° NO 
Xx 
xzk&nke 
x 
* AS * 
Po ef 


YES 


aane 
* % 
* aS @ 
= * 
ReESS 
x 
parcpaecta  fade gadget 
*ADD DATA LENGTH* 
*0P THIS SEG TO 
*  LENGTA oP 
*  PREVIO 
* — SEGREN * 
SEKAAKRARKSKRSE KES 
x 
.*, 
BS" °*, 
* *, 
‘ PRAD °*. YES 
m, MACRO o®rcee 
*, * e 
*, o® @ 
+, .* x 
* HNO RRERD 
‘ *AB ® 
: * Al 
fs * * 
* . 
: IJISVR1 
HHChHKSE RED 
*CHANGE RDD * 
* CCH TO RD * 
*” SND BPSTORE |* 
*, FLAG BYTE + 
RKAAKRAKSEKAR 
x 
AHRABHY/S HARARE KEEREE 
*HOVE LENGTH OF * 
* AVAILABLE * 
* SEGHPNT TO * 
sccW BYTR COUNT * 
RAKRAAEEARKRKAKKARS 
x 
REKERESSEREASSSE ERE 


YIISTDL1 x 
aRERKAPOSAREAESRASRE 
* SPT WRD CCH * 
* BYTE COUNT  * 
*PRQUAL TO LENG TR* 
CF SEGH PNT 
* BE WRITTEN * 
RHARARAKEKAKSERKE LHS 
IJTISTDL2 Xx 
RKKRKE SKRABEESAARE 


*SPT VERIPY RDD * 


: BY WRITTEN . 
RERARERERRSERE RES 


#390 
#ZQr 
BrIUN 


ot 
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Chart AM. CAMODV: Input/Output Macros (Part 4 of 5) 
SaeCe Seen Ps ES 
*AL ®& SAK & * * 
* B58 * B83 * AS € 
* & s & * & 
* * eee 
e e x 
x IJISAFT x -*. 
SSRKEALERECESERES SEKHEEAPESEKEKKEREEK AS *. 
* SAVE SEGMENT * *SET R CF CCHHR * .* *, 
* CONTROL FLAG * * To ZERO AND * YES .# +. 
*FOR THIS SEG IN® * MOVE TO * ese. TRACK HOLD cf 
+ SEGMENT * * FILENAME.F # s *, * 
*DESCRIPTOR WORD® DTF TABLE * i +. -* 
SHSAKEESEREREEREERE KESEKEKEKEKESRKEEKSE x *., .* 
2 ey eee *NO 
_ z * * “ 
° Z * C4 * is 
e e * * e 
. . £84 ‘“ 
‘ x 3 
x o¥e x 
SEKKEBH] EKEEKSEEKE 83 e, EKA LEKEKSE OESEESTE 
# RESTORE 8 * .* *. 
* DATA BYTES * o* WRITE *. NO * SVC O * 
* TO END OF * 3 RZERO ee Oe EXCP READ RO cece 
* PREVIOUS * *. MACRO .# ; ¢ i 
* SEGMENT * e o* e ° 
SEKKSEKKCKKEKEKKKEEKKE *. .* x EKKKEKEKKKKEKEKEEEEK ‘ 
> *YVES Poss S | Fs 
: * * s 
e e * A& * eo 
ps 7 * * = 
‘ 7 kee a 
x oe e 
‘eke IJISZER x ; 
Cl ge. REKKECAEESEKEKE KEKE HKEKKC ZEREREEEESZE EEK GEESKEKKEE KE ‘ 
.# *. SET ROD CCH * *MCVE CCHHO FROM® A 
-* COMBINED ®. NO * BYTE COUNT # * FILENAME.F TO * SVC 35 e 4 
*SEGMENT LENGTHe® ccc cece eX#BLKSIZES8 MINUS #e 005 * FILENAME.K * 0 oX EXC® /HOLD . 
LTE BLKSIZE* * — COMBINED ee * IN OTE TABLE * . * READ RO * 7 
*. .* *SEGMENT LENGTH *® * ; cs 
e,. .*% RREKEKKEKKSEHEKSEKEKEKE x KRASKKEKKKEKSCEKEK SES eo RKEKEKEEKEEE EEK ERE ‘ 
*VES *etee ° eee - 2 
a €AL * % * * . : 
* E4t . * C4 # : 
. * € * * * . ° 
oe * . 4 eX Cer ee ee ee 
: LUISGS : : 
TEKEKY | KEKE KS SEKKED FZ SEHKEKKAKEE EEEKRO GEKEKEKSEEEE 
* * * INSERT LOW # *¢ + 
*STORE REQUIRED * *STORAGE ADDRESS * ** SVC T * & 
* VALUE IN * *ANO LENGTH OF 8* * * WAIT IF ©& © 
* BLK SIZE ¢ * IN PROPER *# * * REQUIRED * * 
* * *EREKEK ® ERASE CCWYS ¢ * € * € 
SEKKEEKSKEKKEREREE *AK € SEKSEKEKSESKEKKERES SHEKKSEKKEKEEEKEREE 
»*REFERENCE S * F4e : . 
eee . TO--AMEl, * * s 
# * ¢ ALK, ALKS, * ‘ : 
* Seece BOGS e oe eo 
b * * & e@ e e 
SaOe = ‘ e < 
LJ TSWLR xX I JISERF x x x 
GEL Ke enee RE 2ESKKEEE SSE ZERKEKEEE SEKEKEGEKEKESEEKEK 
* SET WRONG ® y SEY NO * CALCULATE # 
#LENGTH RECORD® *RECORD FOUND * * SET CC, SLI * * NUMBER OF * 
INDICATOR  *Xeccesecs® INDICATOR *AND DC FLAGS IN®.ee. *BYTES REMAINING® 
* IN DTF + IN DTF * * FIRST ERASE * : * ON TRACK * 
* TABLE * TABLE * CCW * : * + 
SEKKKSEKREKE SEKKAERKE EEE REKEREKEEREE x KKEKKKSKEKKEKEKREKEK 
< eeEEE . 
f FAK * : 
‘ * 03¢ ‘ 
. * * 7 
Z . | < 
‘ 1) 1500M " 
IJ ISWLL x X 
PRCCEF PREC ESEEES ESEKSEARSEREEE EES 
* CALCULATE * * ALCULATE * 
*MAX RC) CENGTH * *MINIMUM LENGTH * 
* AND INSERT IT # * SEGMENT + 
* IN SEGMENT * * (KEYLEN¢8)  * 
* OFSCR WORD * *eeee +eee8 * [F REQUIRED # 
SKESKSKEKSEAKSKKKEKK x * *BD * KKKEKESKEKKEKEKEK KEKE 
*AK1-DL ee ¢ * C2* : 
6OBe ‘ eee * * * ¢ . 
* * oo oe * * * af 
* *eXeX0* GL F 2 *AK-Cl El 4 : 
* * * e * * eo eXevcuccoeaccce e 
Pee Ft 3 s Pz eS | e * " Xx 
[J TSWND X LJINRF X 1JISNRM X eIJISWEOF .*. 
SREKEG ] EKEKEEEKERE KES 2EEEKEKE RKG IEKEKERE - G4 e. 
+ * * * * SET NO ®* 7 eo* WILL *. 
* RESTORE * * SET NO * * ROOM FOUND *# - NO .* NULL : 
* USER Xe ccecese® RECORD FOUND *& * INDICATOR * eoee®. SEG FIT ON Ft 
* REGISTERS * * INOICATOR * * (N OTF * » TRACK « 
¢ x * x s TABLE x *. o* 
SHHKSEKSEKECESESERE SRE SEEKEKKKEESEEE FEKKAEERKSEK *. 
j m *VES 
7 e ee8 : 
° é * s - 
< 2oX* Gl * ; 
ys * * : 
‘~ #4 xX 
@ o*e 
xX SREY FEES EEK EES HS ee. 
EKER |] SHEKKEEES *I1 JISBLD AJ* e* WILL *. 
* RETURN TO. * &- %—4— $0 4-49-48 e* ENTIRE  *. NO 
* PRCBL EM * * BUILO WRITE Xe... *. RECORD FIT .*..c0~ 
PROGRAM * AFTER CCW x *.0N TRACK « 
KEKEKKKKEKESKEEE x STRING = PY *. ot 
SKESEEAKAEKEKEKAEKSESE ~ et. «% 
2 2 *YES 
e oa oXeccccavsecces 
xX - IJISAFIT xX 
SEEKER J ZEKESKEKKAEH” ‘ ERK J GEEKKERE KEE 
*INSERT PREVIOUS*® *STORE REMAINING® 
#10 FROM RO INTO® . *TRACK CAPACITY 
* SEEKADR AND * oy * IN RO ¢ 
* INCREASE RO #* = . * DATA FIELD * 
* DATA [0 BY Ll # = . + * 
SEKKKESKKERKEKEES * SRKKSTKEKKEEKE EE ERE 
x : Xx 
SEEK KZKKEKE KER EE a KKEERK GEKEESEE KEE 
* MOVE CCHHR, * INITIALIZE * 
* BLKSIZE, AND ®& 3 *CCW BUILD AREA * 
*ZERO KEY LENGTH® cecece® POINTER WITH * 
* INTO RO * STARTING ADDR ® 
* COUNT FIELD -32 BYTES * 
SEKEAKEKKESESEE SEEKS KEKSEKKSEKKSEKEKE KEK 
. IJISOOM 
exeee 
AK ® 
* 03 
* ¢ 
Py 


esoeeoovoeeveoevsevoecsevneeveeseeoeeeseeoeveseeestovoeenvneeveseevaeveseevneeveveseeeeseoeeeeeeeeveseeeoeeeveeeveeosesvseeevesveeveeeeveevevteeve ee eo ee @ 6 


+> 


eee 


#GET SEEKADR FOR* 
* NEXT TRACK ¢ 
SEEEHEKE REE EKREEK ES 


DS *, 
o* I *, 
e*NEXT TRACK ®. YES 
¥. ON NEW 
*. VOLUME 


WW Meee Foe 


eo ®ecce 
o* e 


o* ° 
x 
RKKKE 
eAN * 
* A3* 
x ¢€ 
* 
IJIANV 


R 
EKERE SERERERER ERE 
SVC 0 ‘ 


* READ 
RZERO OF NEXT 
TRACK * 


SHKEKEKREKEKKERKKEEE 


e 


ee eee 


FRESE KE EEES EE 
* 


* 


* 
* 

* svc 7 
* WAIT IF ® 
* REQUIRED * 
* * 
* * 


* 
* 
x 
SKKKEEEREKE * 


* 


e 
* 
* 
@ 
=a ww 
xe ¢ 
ez=mn *#meme ee oe 


c< 
o> 
= 


* 
e 


eeeKE 


#NMN<P> b> & 
% DP agi 
e#ZDN & 
Ho Pn<-1% 
HH O48 De 

y°) 

xz 

* 


mr 4 
HD gree 0608 6 ay HOE OO ee 
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Chart AN. 


IJIAFS 
* 


HHRRKE RRA ARE EH 
* MOVE KEYLEN * 
* INTO RO COUNT * 


* PIELD * 
: (FILENAME.C) : 


RKKRKEKEKKAKKKERKE 
WAPT x 
REKRKP RR HK HE HK RH 
* CALCULATE RCD * 
* "LENGTH FOR * 
* BASIC RDD CCW * 
*AND COUNT FIELD* 
* APILENAME.C) 
ERKREKKKKRHKEREKKE 
Perry : 
* G1 *.X: 
* : 
REA 
x 


RHEAKG 1 REREERE ERS 


*MOVE CCHH FROM * 
* SEEKADR TO * 
* COUNT FIELD * 


* (FILENAME.C) * 
RKKKEKKKKAKAKEKEBE 


*IJIS BLD 
%omk * 


S A 
* IF REQOIRED * 
RERDESERERERRR ERE 


ee foley is te oC ee 


eHRBEK 1 REKR ERE ERE 
*INIT. BLOCK AND* 
SSEG DESCRIPTORS*® 

WITH LENGTHS OP7* 


eeenene 
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CAMODV: 


III 


IJIAFTA ° 


IJIAPX 


RHEKKE RES 
*Am * * * 
* G5* * a2 # 
x * * * 
* RKEKS 
x x 
MERKK A TRKERRAKAKES RERKK A QPERREREKRE 
*ADD 8 BYTES FOR* SINSERT SECHENT * 
* DESCRIPTOR * * CONTROL FLAG * 
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Chart BA. DAMODV WAITF Macro (Part 1 of 3) 
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Chart BB. DAMODV WAITF Macro (Part 2 of 3) 
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Chart BD. DAMODV: Get Subroutine 
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Chart DA. ISAM LOAD: ENLIFL Macro, Phase 1, $$BENDFL (Part 1 of 2) 
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ISAM LOAD: ENDFL Macro, Phase 1, $$BENDFL (Part 2 of 2) 
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Chart DC. ISAM LOAD: ENDFL Macro, Phase 2, $$BENDFF (Part 1 of 2) 
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Chart DF. ISAM LOAD: SETFL Macro, Phase 1, $$BSETFL (Part 2 of 2) 
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Chart DM ISAM LOAD: WRITE Macro, NEWKEY (Part 2 of 4) 
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Chart DN. ISAM LOAD: WRITE Macro, NEWKEY (Part 3 of 4) 
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Chart DP. ISAM LOAD: WRITE Macro, NEWKEY (Part 4 of 4) 
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Chart EA. ISAM ADD: WAITF Macro (Part 1 of 4) 
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Chart EB. ISAM ADD: WAITF Macro (Part 2 of 4) 
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WAITF Macro (Part 3 of 4) 
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Chart EL. ISAM ADD, RETRVE, and ADDRTR: Subroutines (Part 5 of 8) 
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Chart ENs ISAM ADD, RETRVE, and ADDRTR: Subroutines (Part 7 of 8) 
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Chart FD. ISAM RETRVE, RANDOM: WAITF Macro (Part 1 of 4) 
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Chart FE. ISAM RETRVE, RANDOM: WAITF Macro (Part 2 of 4G) 
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Chart FF. ISAM RETRVE, RANDOM: WAITF Macro (Part 3 of 4) 
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Chart FG. ISAM RETRVE, RANDOM: WAITF Macro (Part 4 of 4) 
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Chart FH. ISAM RETRVE, RANDOM: WRITE MACRO KEY 
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Chart FJ. ISAM RETRVE, RANDOM: Subroutines 
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Chart FK. ISAM RETRVF, RANDOM: 
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Chart GB. ISAM RETRVE, SEQNTL: GET Macro (Part 1 of 4) 
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Chart GC. ISAM RETRVE, SEQNTL: GET Macro (Part 2 of 4) 
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Chart GD. ISAM RETRVE, SEQNTL: GET Macro (Part 3 of 4) 
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Chart GE. ISAM RETRVE, SEQNTL: GET Macro (Part 4 of 4) 
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Chart GF. ISAM RETRVE, SFQNTL: PUT Macro 
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Chart GG. ISAM RETRVE, SFONTL: SETL Macro, $$BSETL (Part 1 of 5) 
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Cc : 
hart GH. ISAM RETRVE, SEQNTL: SETL Macro, $$BSETL (Part 2 of 5) 
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Chart GQ. ISAM RETRVE, SEQNTL: 
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Chart GR. ISAM RETRVE, SEQNTL: SETL Macro, $$BSETL1 (Part 5 of 5) 
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Chart HA. ISAM RETRVE, SFONTL and ADDRTR: Subroutines (Part 1 of 3) 
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Chart HB. ISAM REfRVE, SEQNTL and ADDRTR: Subroutines (Part 2 of 3) 
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* * *STCRE REMAINDOER* * * 
* SAVE STARTING * *AS TRACK INDEX * * POINT TO NEXT * 
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* e Pre fF | ie . A 
* YX as ; ‘ Xx 
COMMON o*., xX e x INDEX o*. 
1 *, REKBVKH FS SKKSE KKK EE * KERKKHGEKKRERESREEA H5 x, 
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HESSD 1SOEREFEEBIE BAK KK YZ OKA KHAE KK B4 x. 
* * SOET ERMINE DATA * -* HOW *. #8 BERS THREES SES 
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e e e acccscasecere 
° e xX 
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*. o® 
a. 0 * SRKRKBVA FKKEKHK KANE HK 
* YES e 
x ° 
SKERHE DSHEKKKSRKE e 
* * es * me 
* * Svc 35 * * e 
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Chart KA. ISAM ADDRTR: WAITF Macro (Part 1 of 5) 
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* COMPLETE AND # 
*TEST FOR ERROR S* 
SSEKKSESRESEKESKKESS 
x 
o®, T JHAWTNK 
Hl *. BERKS} 2 $94 O44 444% 
o* *. * GET ADDRESSES * 
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BEKSKEKSTKCKHKEEKEDRSE 4EEEESEEESSEEKSES SEARKAMKKKKAKVKKE SE * TABLE 
* e ¢ MEEKKKKAEKSKSE 
o eS ‘ e ‘ e 
A e e e 
* C4 Xe e e e 
1JHRNORM IJHRSHRD— X IJHROVFO xX x 
RESEY 1] 4EESCHHEDE PERE TT PRELIEL ES FF 8HE44KH3¥ESKSEKE KE ¥ERKEH4KSEKESEKEAREE 
+ TJHCOL D2 Fue #1 JHCBLOZ FJ #T JHCBL 02 Fue * ADD ONE TO * 
8-4 — %—~ 4 — $F — |—- F— F— F Bm Ge Fm FF H— HK GRE ll KH HH KH HK . re re oe = NON-—FIP ST s 
*BUILD CCW CHAIN* * BUILO CCW * seuILD ccw CHAIN® * OVERFLOW * 
*TO FIND RECORD * CHAIN TO SEARCH# TO SEARCH * RECORD * 
*(UNSHARED TRK) # * SHARED TRACK # OVEREL OW CHAIN : * Cc * 
SKEKKREKSEKEKEEERGSR SRAEKEISSESKKKEESS SKSSSRKSKHEKSEKKKESE REKKAKERKAKKAAKSEKKSE 
e ‘ *#$o% ~ ‘a 
: : * * 3 is 
‘ : * C3 #.X. ; 
eX v0e6 6686 eas e * * = 
‘ - . seen G : 
IJHRSLTT =X : x IJHRSOTT =X IJRRGOT x 
RERKAKC 1 EKKE SKE OS ‘ S4C 2 €9SS4ESD RECREC 3 SERKEKHEEKSE SRK EASKAKHKSEKSASE 
* SET RCD TYPE * * MCOIFY  * * SET M * * ADD RELATIVE * 
* AND OPERATION * ¢ *SECCAD SEARCH* NUMBER OF # * KEY LOCATION * 
* INDICATOR TO * <esecoe* CCH TO SEARCH * * ADDRESS IN * TO 1/0 AREA * 
* REAC DATA * KEY EQUAL/ * WORK AREA * * POINTER * 
* IF REQUIRED *# * HIGH + * TO X*FEFF * * * 
SEKKSEKESSKESEE SSS EHS 334E94ES EREAKSSAKAKSKKKSEKRE KE SKCEKKAKSSEKKKKEAKE 
‘ 2 eee a 
e e * * ° 
; 7 * D4 2X. 
: : * €. 
. a sake o 
x x x 
4D ] *KSSEBESD SEKBEOHNZSKHRKESSKS KE SEKKVKH4GKERVKAKSKEKSE 
* * $0040 249608440 * SET RCD TYPE * *  SUBTPACT * 
*SET DATA TRK # * [SAP ADORTR # * AND OPERAT * * RELATIVE KEY * 
* “HELO Sw C * * ERROR * * INDICATOR TO * * LOCATION FROM * 
* IF REQUIRED * RGUTINE * * READ DATA * - es GINTER TO * 
* * $48$6 034844 9E4 * IF REQUIRED * * 1/0 AREA 
SHEEKSEKEKSESES a SFAMKKAMESKKREKSK SEK sébacsnaoccesneae 
: +402 : ‘ 
: KE ® ° ; 
; * Gl 2X. ; ; 
> * * * e * 
e SE eabd e e e 
x TJHRERRR |X Xx IJHREGOT x 
SKECKE 1] SKKKSEKKSSE SBE 2 $49449% SS EFSKARKSESE REKEKESKKAKAKAKKESRSA 
* 1JHCXWTH HA® * TURN ON # * SAVE, POINTER * 
~8—4-4-4- *—4—4-% * NO RECORD * -TURN ON #® * GICAL * 
M vEXCP WAIT * -eX* FOUND BIT IN * * DATA TRK HELD * + OR econ D * 
* TEST * a OTF + * SWITCH * + WRITE POUTINE * 
* ERROR * ; * oa fABhe.,* * * * * 
SKKKSEKEKKKKAKESSS ‘é PEEP EEE FS SHHKEKAEEKS KEKKAKSKKEKCKKAEKRKAS 
a Poe FS e ‘; e 
e * E2 * e e e 
e * * e e e 
e Poe FF é . i. 
xX x ‘. : 
o*, ee x x : 
Fl *. F2 *, SKKSIKE 3SKASSKHE ES SREKKE EERSKAERAGKS 
* *. -* *. *I JHCXWTH HA® . * 
NO .* RECORDS *, «* HOLD *. YES pare ager T UP TO MOVE * 
eoe®. BLOCKED o® . = YES o¥eces * AIT. * sCOGICAL RECORO * 
*. .* * «Kl .* fs = NG STESTO FOR * TO WORK * 
e,. o® e % e x R 7 ; s 
x Be eo a % x MKKSEKKSCKKEKKKSHKS SBAKKKRKKKSRAARKAS 
eEKE * YES : * NO Saxoue ‘* e 
= * ‘ aoee ‘ SEF *% 7 e 
* D4 * . * REFERENCES * * Alt é ‘ 
* . * : O  KBG2: * * #.x. + * . 
*e48 . KFC 4, KFH3 * * ; 4 
‘ +oe9 . I JHSER2H x 
SEKKKG 1 FREKKSKEESEGSE SSKEHE 2 SSSHHKETSE G3 *. REEKKLBEG 4EKKEKEAASESESD 
* GET POINTER * * LOAD POINTER # + *, * TJHRWRKA Fus 
* TO KEY IN- # * TC SAVE * e* RECORD -*. YES +—$— $— $— 8-4-4948 
* FIRST LOGICAL * * AREA INTO. *# °° FOUNO ee * MOVE LOGICAL * 
* RECORD ‘ * REGISTER 13 ¢ ‘ . : * “RECORD TO # 
SHKKSEKCKEKKVEKYHS PS PEPE SEP REL EEE FF es. -* x SKAKEAKKCRKAKKKKIVESSE 
e e * NO eee e 
‘ . * Ast i 
e e e * * e 
eeoccccsccecXe e e Ps tS e 
® x x s 
SIUERSLPP  o®, IJHSER2Z1 6%. o*e x 
e e H2 e ? <. SAERKHEAKKAKSVKKSKS 
e o% s Pe x, * 
bs e* KEYARG —*. YES -* FROM *. YES * GvERFLOW “e. YES * GET INDEX * 
se COLT KEY IN 6# eee. +. WAI ahewes *. ENTR c%ecee * ADOR ANO SAVE * 
‘ *. RECORD | .* ‘ *. _reuti ne .* ‘ . " . * READ ADDR * 
> *. o* xX **. = Ps *, -* xX SAKCAKKAKKAAKKALKVA*W 
e * NO eeee * NO e *N Sze e 
e e » * e oe e * * e 
id 7 * £2 * e a va * €2 * ; 
. e > * e e e@ * x e 
e ‘- RSH e a e aeee e 
: x : : x x 
‘ SEES] SESS KSNS xX e BVEKKIFZSSEEESKSEBVSE SERRA JGSVRERKVSEARSE 
Ps x x see J2eseeesece e s * *« % * I JHRWRKA Fs 
. * GET POINTER *# * RETURN TO : ** SVC 36 * * +—8-4—4—-8—4-4-8-6 
esas K * * PROBLEM w° * * "FREE * * * WRITE * 
* NEXT LOGICAL # * PRCGRAM ¥ ** TRACK * # * RECORD * 
* OH9EEISSSESESESVSS e s & xk. x : ; ‘& 
SRKKVVKEKESTS$EBES 9S e SEBRAKESSESLSEVACKSE SSA SEMA KKRKAKAKRSRAAKA 
*K1 ‘ ‘ x 
ISMOO MACRO PARAMETER : . shee 
OPTION. THIS DECISICN ;: ‘ * * 
OOES NOT APPEAR IN AN ‘ x * a5 * 
ASSEMBLY LISTING. iar eas e SRSSKK 3 FKERESSESE SE * 2 
poet s ‘ * MOVE * Kee 
* RECUTR EO ; * MBBCCHHR FROM * 
* INDICATORS *Xeee SEQUENCE LINK 
* AND BYTES *FIELD TO SEABCHE 
ADDRESS | 
PES EP EEE F Se SVRVERKSSKSESSIASE SE 
ea e 
2 I JHC WATF ; 
x xX 
PES SS szee 
QaKA 2 * * 
* B12 * C3 * 
e+ ¢ * s 
z Bteee 


Ss gCRCA 


~ $m $-—- $F — F— Hm 


> GET LOG UN 
NUM USING 
eesbenccssnaesees 

; 

e 

x 
BHREKBES O42 SSSERSESE 
* * * & 
** SVC 36 #8 
* * FREE * 2 
* * TRACK ¥*% # 
* *& * ¢ 
424 $4 3E4S$9SE4SSSSES 

: 

; 

e 

x 
#4 S4C 5 $4OKEERESEEE 
* * 


*LOAD USER JOREGS 


* WITH ADORESS 
* OF RECORD 


* * 
$24 448044646846444% 
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Chart KC. ISAM ADDRTR: WAITF Macro (Part 3 of 5) 
#84259 eee et tee 
*KA * * * * * * 
* K2* * AZ * * AG * * AS * 
* * * * * * 
* ERE ee HH 
x e x e 
o%. I JHAA23 ae o*, TJHAA26 x 
Al e. SERIA? O4SEHE SESE ERAERK AZ ERARERER EE AS *, eceean eres cesses 
*. SI JHACOTR EK* * BUILD TIC * o* * GET * 
*. VES 9—4—4— 4— 9-4-4 -4-—* * TO REAC CCW * * KEY *, YES * LENG THOT Yee * 
a “ADDY TTON oe esenteehe set LP RCO NO *# * CHAIN IN * *. PADDED o* sees * CHECK * 
IME DA N FCR NORMAL * * OTF TABLE * *. * ° * QUCPLICATION * 
Pangea ih 7 208 SHRD PO TRK * * * *. e ° * F KEY * 
o ef $9099 99344494 004% RES ESRERE BEEK EE *. o® X REREKREABEE SHS EEK 
* NO ° e * NO eR EM e e 
e e e e EE * e 
° ° ° ° * 3% e 
« e @ e * * es 
e eo e e * es 
e e e e TJHSEPR 2 x 
I JHAOBEC x I JHANOWO x x ITJHAPPM 9 x o* 
HERESY 1 4449994994 #8468B2 9949844944 SHE EH HI HEAESHEKEE RERRADGRAAKEE HR Pike oO 
#1 JHAOMCO EJ? *ITJHACKCO E J* * SET RCO TYPE * * INCREASE Sd 
o-S=* 2-92 os 8-8 — F— B— 9— $— 4-4 ~ F—% * AND OPERATION * * SEEK ADDPESS * * DUeLICATE *,. YES 
* GET NEW * CALCULATE * * INDICATOR TO * * BY NUMBER OF * *s KEYS ee 
*OVERFLOW RECORCS VERFLOW RECORD * READ DATA * * RECORDS TO * *, o* ° 
* ADDRESS * ADORESS * RCO * BE READ * *. .* e 
Seeuseeeesesaeess PETE SEPP Ere ere Ty oy CRERERAEKAK EMEA RE CHEARAEREAAARRAME rer ea oe 
eo e Ld eo * 
@ e e eo e *KC * 
e e e e e * Al* 
e eo e e e * * 
e e e e e * 
° e ° x e TJHAPRMS 
xX I JHAA25 x x IJHACTET .*®. 
S8404C 14840942494 SHREK 2 £99448 2944 RRARKC 3 HER HK EE EH C4 x, HHH RACE RHEE RE EE EE 
* IDHAOREL EC STJHCB LOL EK* *ITJHAIOOP EL* o% *, * GET ORIME * 
*-8—8—4~—3—4—4-— 4-8 t— $—4-—-4—4-~4-—4% #—* —¥— 4-H —E —H— HH e*LAST PRIME *. NO ®0ATA RCD LANGTH * 
* READ FIRST * saurLo CCW CHAIN® * EXCP, WAIT * *. TA_RCD eMecce * ANDO POINTEPS * 
* OVERFLOW * pape SEARCH AND * * TEST FOR * *. WRITTEN .* ° * TO TOAREAL * 
* RECORD + REAO PO TRACK * * ERRORS * ®e o® ° * ANDO WORKL * 
SH8EEEBSSEEE4EESDE sensor serenaesens ERPREREAKKS RHEE AH eo ok x XRKVERKERES GABE AS 
bi e ° * YES *eRe a 
‘ ° . KEKE % * * . 
e ° ° * REFERENCES * * ° * J2 * ° 
° e e TO KCO4: * * ¥*.X. * * e 
e e e KOJ1, KOJ3 * e FER oXecccecvccesr 
; & xX eeke . ‘ 
x x o*. IJHANEDT x T JHA 88 M6 x ° 
E44 219844404898 8444402944944 8 4844 D3 Ke BERK DG HEE EE HEHE RE SROS HRS SEAS ED : 
* IT JHAOMTO Er * SET .U * o* ¥. * * *ADO PRIME DATA * ° 
—¥—#-4~-4—4$—4-—4-4% * READ DATA * o* UNBLOCKEC *. YES *ADD KEY LENGTH * * RECORD FORMAT * . 
*GET TRACK INDEX*® * RECORD AND * *. RECORDS oF scce x TO POINTER * *(KL4BLKSIZE+8) * ° 
ANO OVERFLOW * * SAVE 1/0 * *. o* e * TOAR EAL * * TO TOAREAL * e 
* RCO ACDRESSES * * ADDRESS * ° o* e * * * ONINTER * ° 
FRREEAESERESHSERGSS SHRRHS 9STRAGH GHOSE *. of x RAKE RRRHERARRRK ERE RHEEREEREKE AH AERE 3 
. es * NO eee ; é ‘ 
e e eo * * e e 4 
e e e x AS * ° e e 
e e e * * ® e e 
e oe e ERE e e e 
x x x IJHAA2T x xX . 
SHRSSE 146044464994 SEKEBE? 2999404984 SHKAK EF OE HERES EE HERERE 4 ORERE EASES HRESES 09444494 9% * 
siyncec ol EK SIJHAICPH EL* *IJHACDBSK . EM* * MOVE SEQUENCE * *Y JHA ASHE EK* ° 
+—% rrr ae $— 2 $— 9— 4-4-4 — 4-4 4 = Ha 8 HK MH —H— HH * CINK FIELD Seen cee . 
*8L0 CCW CHN TO # * EXCPy WAIT * * EX ECUTE * *FROM 1ST CHAIN * EXCHNG e 
eWRITE TRK_ INDEX? * ANO_ TEST * * DEBLOCKING * *OVFL RECORD TO * SDATA IN LOAREAL® ° 
OVFL ENTRY * * FOR ERRORS * UBROUT INE * YOAP EAL * ANDO WORKL * e 
SOs Se Shes ee SeeESS SORES $O98SSSEE SES SVHERVESESAE ARES EK ¥FRRKEAEAEERERAKE SD KEAKAERESEEEEREDEE . 
e e e e se e 
e$ee < 4902 * 240% ‘s x 5 ; 
° ¥KD * e * m oe ° ° e 
* FL &.X. * K2 9X. * F3 ¥*.X. ° e ° 
* ‘ :. Rs * * . Hw 7m 
Seae ‘ 29% ‘ a a 6 
x IJHACGTO I JHAA2Z6A x x x . 
SHERKE 14094998944 sssear 29eaeeeeees RERERE 3 HK HK KKK SE RHEE KE GERARAREAAED See ce poe ea tet eee ‘ 
SET RCO TYPE # MOVE PRIME * BUILO TIC TO # * * x * e 
* AND OPERATION # : DATA RCO : * WRITE CCH # ** SVC 36 ** SOE CREASE NUMBERS ° 
* INDICATOR TO *# * ID (CCHHR) * * CHAIN IN * * *FREE PRIME * © RECORDS ° 
* WRITE TRACK *# * SEEK/SEARCH * * OTF TABLE * * *OATA TRACK * *# > RE ° 
* INOEX * AODRESS * * *ITF PEOUIRED* * * e 
#842964 9ES294839% $0440 9994869494984 HABERESKAKABHE ER SORRBHEKEAERERRAS SE RHRABEKEERESEEKEE . 
e e e e e e 
e e e eo es e 
i ; x x : 
e e e e e 
24886 14044998994 G2 *. CHEER GZ ERASE SE EEREKG GARR E RATE 65 7 fs 
$ IJHAIOOR EL* e *SET RECORD TYPE $ IJHAOSOY EH* o* NN. *. e 
¥~$—-8—4—F—F—F-—F— 4% RIME *. NO * AND OPERATION * ¥—R— Km B—HK— KR H— HH o* OF RCOS *. NO. 
* EXCP, WAIT * *iQaTA Pan CORE ePecee * INDICATOR TO * * WRITE NEW * *. TO BE READ .Fecee 
* TEST FOR 2 AD0 o* ° WRITE OATA * OVERFLOW * *. =0 o* 
* * "e. *KL .*- . * RC * * (3) * * | 
$EE394 $4404 4E4998 %. .% 4 ELRKHEHKSS AS EKEE EE REKEAKRKARREA RARER Paar 
e * YES SSeS ° ry * YES 
e e KO * e e e 
e e 5 Fl* e e e 
e e + * e ° e 
@e e * e @ e 
: i x K x 
e e 
Hl *. S88 RSH 29494408964 SERSEKHZ VRSEHSRS HH ERE RKHGRERAEAERESE RRKREHS BERS SERE HH 
° ESTABLISH SI JHALOOP EL * TQHAONTO EH* * * 
° HOLO e NO Seo e ree niay * a ee ee et oe Dn ee DE ot ed oat ot oa) +— 4— > * MOVE LAST * 
*. #YES eFecce OR PRIME OATA * * EXCP, WAIT * BUILD ACK * * IQAREAL KEY * 
*. *K1 . *IN CORE SECTION® *  TESt FOR * * INDEX OVERRLOW fd * TO KEYARG * 
e e * OF OTF TABLE * * ERRORS * * * * 
ae OSES S294 SS949999 RERSERKSRHRATKE EE FOERERE RES SR EERE S EREREREGEEESE SEE? 
° baad ° e ° e 
e » e =) e e 
x * J2 #.X. ° ° X 
294% * e 6 e ‘s thee 
*EF * IJHSER2 ndaduied e ° e * * 
* Al I JHAPRM4 x x x * F3 * 
* * HOOKS JZ 9994999094 PKB IZ SEEEEHAE HE SHRRE IGHERERREAED * * 
* * CALCULATE * * I JHAPRAL EN* * IJHACBKI EK* +4ee 
IJHSER 2H * NUPBER OF * ~4—4— —¥~t~-¢ ~% —4— 4~4—- 4— ea 
* RECOROS LEFT * * MODIFY CCW * * GET PTR ANDO * 
* ON TRACK + * CHAIN. IF * * HIGH KEY FOR 
* 4u * * NECESSARY * *NORMAL TY ENTRY* 
PEST EEE PEE EET EE EE | SRSARASERAK EKA EH ERASE BABESARAEKAERE 
e e e 
e e e 
e ® @ 
eK @ e e 
BOE naGne PARAMETER e e ° 
T e THIS DEC TS JON e ° e 
ey NOT APPEAR IN AN TJHAPRMT xX xX x 
BLY LISTING. #BSSSK 29449440499 ERHKKK 3 HASRKEKE OE EABK KEK 4EREREESRERE 
#1 JHAPRM] EN® *IJHA 329, EL* * IJHCBLD1L EK* 
H— 9-4— 4-4 3—4% 4-4-4 -F —F —F —4—F —H —t—4—4— += % 
* MODIFY CCW + * DET ERMINE If * .*6LD CCW CHN TO * 
* CHAIN IF * KEY IN WORKL © *WRITE COCR, NML* 
* NECESSARY * PADO * *AND OVEL ENTRYS* 
$904039990S99S6448 RREARSKALAARRSEKS SS SPRERESEEEREAAERS 
@ e oe 
x x x 
s32% +e oe koe 
* * * * 
*. AZ * * Aa * * Fl * 
* * * * 
$422 eek ERE 
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TJHACDUP 
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xX 
#ek ee 
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IJHAN 


rt KD. 


EKKERESS 
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Xevcccee 
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£4B LSKK KEKE 
* TURN ON * 

* AND OFF * 
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*. SWITCHES iad 
FEREEE TEESE 


Meee oe 


MHRA 1 ERE EAK ENE E 
one ara OVFL * 

RCO AOOR TO _ #* 
SLAST INDEP OV OVFLS 


; 
ES SF 
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*€>O 
H+DOD 
ia 


* OTF 
RERKEKEK 


r 
He we oe HEH 
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* 

ee 
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IJFSER ZH 
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## SHG 
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*HKEEE 
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o* 
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* 
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EDT 


SKKKEK 1 SEKKKEEEGKDE 
* IJHCBL D1 EK 
—*-*-4—4— *-t—4-% 
*pLO CCW CEN TO * 
*READ NEXT PRIMES 
* DATA RECORD 
eebeocesecesesese 


ISAM ADDRTRs 


TJHAA26 x 


eeeoeeeseveeereeereeveeveeseteoaeseeee sass ee @ 


X 
BeKES 
*EE * 
* H3*% 

* * 


* 
HSER 2 


eeoeeteoeveneeeaee ed 8 


e@eeeoe 


oeX* INO 


SERAKAD AERGEHHEEAK 
*I JHCBLOL EK* 
4— 4~ $— 9—4—4-—4-4-—-* 


* KEY 
KEREKEKGSEKAEEAEESEK 


Pn + 
DSSMN*e 


#+OmMoo~ # 
" QHAMO exe © oe tee 


HK SAC 
si yHal 


SREKEKEK 


arn 
fom 


ee See e HOH H#OGME FO 8 Oe 


#envmMe 


D2 *. 


e * *, 
NG eYES .* DUPLICATE *. 
_ KEYS o* 


Bm exe coos 


HHREREEE 
ELS 


oO 


we Fae Km Fue Fae 


: HDIATD BON 
De 
see eo eet YEO 


SPCR HI Ue See ee Se 
; MOVE 

* FROM WORKL 
: TC KEYARG 


SKEET SEHKAEKKKCTRE 


HERE H 


SHRRE SZ OOEEEERERE 
* SET RCD TYPE #* 
* ANO CPERATION * 

OR TO * 
D DATA * 
CCRO * 
4449849444 


ecevccecX® 


+o ee 
*KA * 
* J2* 
* * 
* 
TJHAQUA X 
4 ARK AZ EERE ERE EH 
SI JHACOTR EK* 


4k — 4-4 4K — 6 —4—K —* 
* INSERT RECORD * 
* ON PRIME CATA 4 


* RA 
RHEREKEEHKERERERER 


YJ 


PT ETTUEL TE Pt rte ts 
*TJHCBLD1 EK* 
K—-kK-K— KH HK — HH —H 
*BLO CCW CHN TO * 
*READ NEXT PRIME* 
* DATA RECORD * 
yeh eteeenee scenes 


Me seoe 


#H HERES REAEEEES EE 
* SET RC 


* ORO * 
SHAE EKEEEE ARES EE 


Meesee 


HAKEA ES RAAK EERE EK 
EL* 


RRAKHS OH EREER EES 
pas dase a EK* 
#~4—-4—% Sogce es 
EXCHNG KEY 
*DATA IN IOAREAL® 


WORK * 
HEGRE HE RHEEBER AE 


YW 


BEEAKK 3 HERKERER ES 
si yHacurd EL* 


* 
* *OPDATE LAST * 
* PRIME CATA * 
*RECORD AODRESS * 
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WAITF Macro (Part 4 of 5) 


REX 
* * 
* A4 * 
* * 
ERK 
x 
REKKKAGKKRAKKEKKASA 
* IJHACOBK EM* 
K—4—K— K—-K— H— HHH 
* EXECUTE  * 
* QOEBLOCKING * 
* SUBROUTINE  * 
BKEARKKEKKKAKKKARKRK 
x 


EERHABR GR ARAE HH HE 
* TJHABEOL EK* 

~#—*— —H— Km 4 hm 
BLO. ccw CHN TO * 
*WRITE ANO pee : 


* PDP. 
Ruesecks cee cewee 


ee eee 


HAAR GRR RH 
* SET RCO TYPE * 
* AND OPERATION * 
* INDICATOR TQ * 
* WRITE PRIME * 


* DATA RCD * 
KERKAKERKHRERR EERE & 


eees 


>ee 


HHA DG ERK RH 
* IJHATOOP EL* 
4d Kk KH 
* Oe pa * 
* TEST F * 
* TEBR ORS. * 
ERK EERAEARAEEAEE 


Me teste 


KARKAKKEGAKARHKERES 


* YJHACUPP EJ* 
—K— K— KK HK 


* UPDATE PRIME * 
: DATA pager ed 
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eee eo 8 
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* * FREE DATA * * 
x * TRACK | 

* * * * 
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Ee - ‘ 


IJHAEF XD 


X 
EKKEKRG 4 KEBRRERR ER 
* MOVE POINTER * 
* FROM LAST * 
* TRACK INDEX * 
FOVERFLON ENTRY id 
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EEKKAEERERER ERE RH 


eee ee 


KEKAKHGRKAKKA KR E 


*LAST TI NORMAL * 
EKKRAKAKKKAKKEKERKAKSE 


wee eee 


aga be ried cea 
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TP.ACK ane * 
eoees ESS f + 
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ze 
* 
* 
* 
* 
* 
* 
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Chart KE. ISAM ADDRTR: WAITF Macro (Part 5 of 5) 
Sees 9329 RHERS 
*KO 2 4KO + *KO * 
*e FSs a C33 * J5* 
* 8 2 r 
* * * 
IJHAA4O x TJHAUNB x IJHERRA x 
wT Er ePREL ETE rrr ey | SOKA? O9949ESEEE SETH AZSRREe SHEE HE 
* MOVE CYLINDER # - MOVE LAST * * SET RCO TYCE * 
* INOEX START * * PRIPE DATA * * AND CPERATION * 
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* MOVE LAST * ST JHACUPO EL* *] JHAL OOP EL* 
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* AOORESS * FRECORE ADDRESS * * ROR * aad 
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SHEBKS E 1 EKREDERSOD a e2 *, RRR EGRRARARRERK RAKBAE S ARBEBRHS SE HH 
* - é * SH RKES ORK HAAE * TRA * *TJHCALDL EK 
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Chart KF. ISAM ADDRTR: WRITE Macro, KEY 


*a2 
1SMOD MACRC PARAMETER 
OPTION jal DECISION 
DOES NOT APPEAR IN AN 
ASSEMBLY LISTING. 
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Chart LA. $$BOISO1: ISAM Open, Phase 1 (Part 1 of 2) 
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Chart LB. $$BOISO1: 
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Chart LC. $$BOISO2: 
PE SS 
* * 
* A2 * 
CHART LC * * 
eKESK 
x 
EEK AZ EREEEE ESSE 
OEE AL EERE EREKE * * 
* * * OPEN VICC # 
* sssoiso2 = * * VIA CVH ¢ 
PES ERT ES Ete ttt SE * % 
‘ WHEKEKEKREKAKEE EKER 
x X 
SEKSEK A] ERK EK RREKKB DEEKKEEEKKE 
* GET avon ees * *CHKR TNCD LCc* 
* OF SYSKE * kn KK ¥ KKK FE 
* CASO LABEL * * CHECK R/C * 
* INFORMATION  # * FROM CVH * 
HEE SR EK KEKE KEKE EE REE EKEE EK SEEKERS 
x ° 
8s -X 
Cl *. KRKKKC CEKKEREREKS 
°* ° * PLT * 
o* RETURN *. YES * SYM UNIT * 
*. FROM MSG eK cease * IN CCB * 
*, wTR o* ° ; ea 
e e%® x We eK KE KKK ESE 
*NO EES e 
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‘ ee Ke e 
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* * e e 
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X x 
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* DATE AND * * FORMAT 1 * 
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* PERIOD VIA * * VIA CVH * 
* SYSDC MACRO * * * 
He he Reo ake ok ee ee MKKKREKEKREEKKEE KE 
X x 
HREKEKE LEAKS KEE EE KEKKEF 2PHEEKEKERKES 
* * *CHKR TNCD LC * 
* CLEAR * Ke KM Ka KH KM HK HK HH 
* RETENTION * * CHECK R/C * 
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Ob HO KK KEK KH WRK EK KK KEE EK EK 
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X e XxX 
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* * . * : * 
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* * 7 LIMITS * 
* * . * * 
ROEDER EEK EEKE * Me hee ek ea KKK KE KH 
X . x 
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* OTF *, ° o* 
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eooe %e CODE = ° e e, CORRECT eonoe 
e : ° 3340 o* oY e o% ° 
e oe e ° ®, ° ry 
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° ° oe e * * 
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+e ot 
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* * 
+H 
x 
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* * 
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* LIMITS INTO # 
: FORMAT 3 - * 
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* NEXT EMPTY * 
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* * 
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* FRCM CVH : 
wTT TTL TT Tir ets 
x 
#EE EEC OK REE EE 
* CLOSE * 
* VICC OF * 
* PREVIOUS * 
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Chart LI. $$BOISO6: ISAM Open, Phase 6 (Part 2 of 2) 
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Chart LJ. $$BOISRP: ISAM Open, Phase RPS 
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Chart MA. $$BOISO7: ISAM Open, Phase 7 (Part-.1 of 4) 
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art MB. $$BOISO7: ISAM Open, Phase 7 
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Chart MD. $$BOISO7: ISAM Open, Phase 7 (Part 4 of 4) 
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Chart ME. $$BOISO8: ISAM Open, Phase 8 (Part 1 of 2) 
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Chart MG. $$BOISO9: ISAM Open, Integrity Phase 1 (Part 1 of 3) 
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ADDINCR 
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NG 


DC, DJ 
GR, JK, JQ 


GN, JJ, JL, MH 
GN, JJ, JL 


MK 
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GP, JN 


JP 
JP 
JP 


GM, JH 
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IJBISRES 
IJ HAASHF 
IJHAA12 
IJHAA13 
IJHAA14 
IJHAA16 
IJHAA17 
IJ HAA20 
IJHAA23 
IJHAA2S 
IJHAA26 
IJHAA26A 
IJHAA27 
IJHAA28 
IJHAA29 
IJHAA33 
IJHAA34 
IJHAA35 
IJHAA36 
IJHAA37 
IJHAA38 
IJ HAA39 
IJHAA4O 
IJHAA41 
IJHAA42 
IJHAA43 
IJHAAGY 
IJHAA4S5 
IJHABECF 
IJ HAB29 
IJHACACH 
IJHACADX 
IJHACBKI 
IJHACBMF 
IJ HACDBK 
IJHACDOF 
IJHACDTR 
IJHACDUP 
IJHACDVP 
IJHACEOF 
IJHACFLL 
IJHACGTC 
IJ HACINX 
IJHACITF 
IJHACITI 
IJHACITS 
IJ HACLOP 
IJHACLTI 
IJHACPAD 
IJHACPD1 
IJHACTET 
IJHACUOV 
IJ HACUPD 
IJHACUPF 
IJ HAC29 
IJHALDEC 
IJHAD29 
IJHAEBEG 
IJ HAEBLF 
IJHAEFXD 
IJ HAEFXK 
IJHAEMCI 
IJHAEMC 1 
IJHAENT 
IJ BAETFL 
IJHAE29 
IJ HAF29 
IJHAG29 
IJHAHEAD 
IJHAH29 
IJ HAIOOP 
IJHAICPH 
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IJHANEDT 
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IJHANOWO 
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IJHAPRM3 
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IJHAQUA 
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IJHAWRKY 
I JHAWRNK 
IJHAWTNK 
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IJHCMCAL 
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IJHGETOK 
IJHIHRE2 
IJHMCLIND 
IJHMCMWR 
IJHMDADD 
IJ HMEREX 
IJHMEXCE 
IJHMEXYMV 
IJHMEXWT 
IJ HMFRST 
IJHMFXSS 
IJHMIDPB 
IJHMINCR 
IJHMIXDA 
IJHMLEAV 
IJ HMM25€ 
IJHMNDCK 
IJ HMNDTK 
IJHMNWTK 
IJ HMNXCL 
IJHMNXPK 
IJ HMOKEQ 
IJHMOKFI 
IJHMOKLD 
IJHMPDTK 
IJHMRDWR 
IJHMRNBFE 
IJHMRSTR 
IJHMRTRN 
IJ HMRTRY 
IJHMSHRD 
IJHMSPNT 
IJHMTINE 
IJ HMUNFL 
IJHMUPDT 
IJ HMWAIT 
IJHMWRIE 
IJHMZAPP 
IJHM1IIOA 
IJ HM 1IOB 
IJHOFFSK 
IJ HRCERC 
IJHRCERC 
IJ HRDHA 

IJHRECAL 
IJ HREGOT 
ITJHRERRE 
IJHRESCH 
IJ HRESCO 
IJHREXSL 
IJ HRFND 

IJHRNORM 
IJ HROVFO 
IJHRPRNT 
IJHRREAD 
IJHRRGOT 
IJHRSALT 
IJHRSHRD 
- IJHRSLPP 
IJHRSLTT 
IJHRSOTT 
IJHRSRCH 
IJHRWRKA 
IJHRWET 

IJHRWRTB 
IJHSADD 

IJ HSADKY 
IJHSBCKT 
IJ HSBHIN 
IJHSBH11 
IJHSBH12 
IJHSBH13 


GF, 
AL 
DM 
DN 
DL 
DM 
DE 
DL 
DM 


JF 


KB 
KB 


FH, 
FE, JG 


KB 
KB 
KB 
KF 
JG 


JG 
KB 
KB 
KB 
KB 
JG 
FJ 
KF 


JD 
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JE 
JE 
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JE 


IJHSBH17 
IJHSBH18 
IJHSBH19 
IJHSBH29 
IJHSBH3 

IJHSBH30 
IJHSBH5 

I JHSBH6 

IJHSBILD 
IJHSBLKD 
IJHSBLTI 
IJHSBLUT 
I JHSC HNG 
IJHSCNG1 
IJHSC 002 
IJHSEOT 

IJHSEOTR 
IJHSER2 

IJHSER2H 
IJHSER21 
IJHSE STL 
IJHSEX1 

IJHSGET 

IJHSGETB 
IJHSGETH 
IJHSGET1 
IJHSGET2 
I JHSHERE 
IJHSINT 

IJHSKBKT 
IJHSK ERR 
I JHSKEY 

IJHSMOV 

IJHSMVLN 
IJHSNEXT 
IJHSNO 

IJHSNOWT 
IJHSNXT 

IJHSOTR 

IJHSOTR1 
IJHSOTST 
IJHSOVFL 
IJHSP UT 

IJHSPUTB 
IJHSPUT2 
IJHSREDO 
IJHSRETB 
IJHSWKAD 
IJHSWOR 
LJHSWORK 
IJHS1E0OT 
IJHS2EOT 
IJHS210P 
IJHVBLDC 
IJHVBLD1 
IJHVSBL1 
IJHVS BL2 
IJHVSBL3 
IJHVSBL4 
IJHVSBL5 


 IJHWTFSK 


IJHXCOR 
IJHXEPR 
IJHXRPS 
IJHXR PSO 
IJHXRPS4 
ITJIAE11 
IJIAFG 
IJIAFS 
IJIAFT 
IJIAFTA 
IJIAFT2 
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JC 
JF 
JF 
JD 
JE 
GK, GP, JD, JN 
GK, GP, JD, JN 


JC 


JC 
FG, GA, JA, KB 


FG, GA, JA, KB 
JA 


JB 
JB 


JB 
JB 


JE 


JE 


JB 
JE 
JF 


JF 


JB 
JB 


IB 


JE 


IJIAFY 
IJIANT 
IJIANT1 
IJIANV 
IJ IANVL 
ITJIARD 
IJIAWR 
IJIBLD 
IJICMC 
IJICTL 
IJICTL1 
IJIDIC 
IJIDUMY 
IJIDV2 
IJIDV3 
IJIEOF 
IJ IEOF 1 
IJIEOV 
IJIFLG 
IJ IFREE 
IJIFRM 
IJIFXL 
IJIGCH 
IJIGET 
IJIGFT1 
IJIGNXT 
IJIGSKB 
IJIGSKB1 
IJIGSKE 
IJ IGSKM 
IJIGTITT 
IJIJCK 
IJILADR 
IJILBK 
IJILOH 
IJIMXK 
IJINCD 
IJINCT 
IJINEF 
IJINFIT 
IJINID 
IJ INRF 
IJINREM 
IJINRTO 
IJIOVCH 
IJIOVP 
IJIOV2 
IJIPRT 
IJIRDY 
IJIREAD 
IJIREST 
IJIRNO 
IJIRON 
IJIRTER 
IJIRZO 
IJISAFIT 
IJISAFT 
IJISANUL 
IJISASRO 
IJISBK 
IJISCMC 
IJISCTL 
IJISCTL1 
IJISDV3 
IJISEOV 
IJISERF 
IJISFREE 
IJISFRM 
IJISGDL 
IJISGS 
IJISICL 
IJISING 
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IJISJCK 
IJISKIF 
IJISKIP 
IJISKIR 
IJISKI1 
IJISKS 
IJISKS1 
IJISK1 
IJISLBK 
IJISMID 
IJISNEF 
IJISNF 
IJISNID1 
IJISNL 
IJISNRM 
ITJISNRMU 
IJISNRTO 
IJISO VP 
IJISOV!1 
IJISOV2 
IJISOV2E6 
LJISPW 
IJISREST 
IJISRFD 
IJISRON 
IJISRTER 
IJISSEOF 
IJISSF 
IJISSTO 
IJISSTRT 
IJISS WL 
IJISTDL1 
IJISTDL2 
IJISTI 
IJISTK 
IJISTKW 
IJISTNR 
IJISTO 
IJISTRT 
IJISTT 
IJISUBPS 
IJISUID 
IJISVR 
IJISVT 
IJISVT1 
IJISVW 
IJISWC 
IJISWEOF 
IJISWLL 
IJISWLR 
IJISWND 
LJISWRT 
IJISWTM 
IJISXTFD 
IJISYID 
IJISZER 
IJITIC 
IJITICR 
IJITNR 
IJITOM 
IJITRHLD 
IJITWRU 
IJIWAFT 
IJIWFTR 
IJIWND 
IJIWRI 
ITJIWTM 
IJIWT3 
IJIXNF 
IJIXTFD 
IJIYID 
IJIZER 
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» AM, AN 


AA, AF 
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IJRRGOT 
IJUNBLK 
ILLEGID 
INACTC 
INCCNT 
INCMWR 
INCR 
INCRFD 
INCRKEY 
INDEX 
INDSKIP 
INDXWR 
INICNT 
INIT4 
INPUT 
INSERT 
INTCCW 
INTIWR 
IOCOMPAR 
ISLOOP 
ISSHRD 


KAPUT 
KEYROUT 


LABELSW 
LIMCHK 
LOADALTR 
LOADDTF 
LOADONE 
LOADPHAS 
LOADUP 
LOADUSER 
LOLIM 
LOOP 
LOOPOFF 
LSTPRDAT 
LSTRCD 
LSTTRK 


MISZOK 
MO DOK 
MOVE 
MOVEDATA 
MOVEHR 
MOVEID | 
MSGRTN 
MSGRITNE 
MSTHI 
MTON 


NDXYERR 
NDXRIN 
NEXT 
NEXTPHAS 
NOFILPRT 
NOFULTRK 
NONFIRST 
NONSHRD 
NORCOM 
NORECFND 
NOREM 
NORMAL 
NORMLTRK 
NOSER 
NOSKIP 
NOTCHAIN 
NOVERF 


KE 
EM 
GG, 
DA 
DB 
DE 
DB 


Cc 


JH, 


GP, 


GP, 


LE 


GN, 


NB 


LF, 


GN, 


GP, 


GN, 
GP, 


td 


JL 


JM 


JN 


JL 


LI, 


gd. 


JK, 


JJ, 


NE 


JL 


JM 


JL 


NTNDPK 
NWTKCM 
NXTRK 


OFLOEXIT 
OFLOOP 
OFLOROUT 
OFLOSAVE 
ORCCW 
OTHERR 
OUT 
OUTRTN 
OUTRTNE 
OUTRTN2 
out! 
OVFRTN 


PASS 
PCSW 
PDPOINT 
PDSCHAGN 
PDSERR 
PDTOTI 
PDTRK 
PDUPPTR 
PD11B 
PGBN 
PHASE 1 
PHASE4Y 
PHASE5 
PHASOT 
POARTN 
POINT 
POINT2 
POINT 4 
PREAD 


RCDCAL 
RDE¥CP 
RDLABEL 
RDLST 
RELOCATE 
RETRVE 
RETRVU 
RETURN 
RNOBMP 
RNODMP 
RNUMB 
ROUT 
RPSPHASE 
RPSTEST 
RSETFP 
RSETTF 
RTNMON 
RTV1 
RZERO 
RZEROR 
R21R 


SAVEF X 
SCAN 

SETADR 
SETCC 

SETCCW 
SETLOG 
SETMA X 
SETMSG 
SETNEW 
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DA, DB, 


LB, MB, 


LD, LE 


JJ, JL 


JN 


DC, DE, FA, FB, MF 


NB 


ee 
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SETPNT 
SETUPTBL 
SETUP1 
SETUP2 
SHARED 
SHRDTRK 
SKIP 
SKIPO4 
SKIPO5 
SKIPOSA 
SKIPOSB 
SKIP06 
SKIPO8 
SKIPOS8A 
SKIP10 
SKIP 12 
SKIP13 
SKIP 16 
SKIP20 
SKIP 22 
SKIP22A 
SKIP 22B 
SKIP24 
SKIP24A 
SKIP24B 
SKIP 28 
SKIP32 
SKIP32A 
SKIP32B 
SKIP 36 
SKIP4O 
SKIP42 
SKIP4E 
SKIP52 
SKIP54 
SKIP6C 
SKIP60 
SKIP 68 
SKIP72 
SKIP 76 
SKIP80 
SKIP82 
SKIP88 
SKIP90 
SMTRK 
START 
STOADR 
STORES 
STORES 1 
STORKL 
STOWN 
STPIOA 
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GP, 


JM 


LE, LH, MA, NB, ND 


ND 


LH, 


NG 
MC, 
LH, 


NH 


LH 


LI 


DH, 


GQ 
GQ, 


NB, NG 


NG 


NG 


DK, GG, GM, 


JP 


JH, JL 


SUBTCT 

SUPSET1 
SUPSET2 
SUPSET3 
SUPSET4 
SUPSET5 


SUPSET6 


SVCALL 
$3330 


TBLBLD 
TEST 
TESTEOF 
TESTIND 
TESTLOAD 
TESTMOD 
TESTNORM 
TESTPDUL 
TESTS HRD 
TICRTS 
TINLOP 
TIWR 
TKHLDCHK 
TSTDASD 
TSTDVCTP 
TSTNRF 
TSTOUT 
TSTRDLB 
TSTWLR 


UNBLFL 
UNBLREAD 
UPDATE 
UPDTAB 


VALIDATE 
VALIDKEY 
VALIDMAC 
VOLSETUP 


WRITE 
WRITELBL 
WRLOOP 
WRIMT 
WRITTI 


XTNPUT 
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DA 
GJ, 
LG, 
DB 


MH 
cc 
DH 


DA 


LH 


GM, 


JK, 


JK, 


GP, 
NF 


DE, 


JH 


JP 


JK, JQ 


JQ 


GG 
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For explanations and actions to be taken for the various messages, refer 
to VSEZAdvanced Functions Messages. 


Note: The second digit of the message number indicates the type of DASD 
file issuing the message. The file types are: | 
2 = ISAM file 


6 = Direct access - Input 








7 = Direct access - Output 

a ee : Ge eS gs a Oy ge Ee eee tN ge ge ae en ee a A Oe ore 
|Message|[Issuing | | 

{Number |Phase {|Chart| Message | 
SS 
14201I |{$$BOISO2| LC | NO FORMAT 1 LABEL FOUND 

| | $S$BOISOA| NA | Or . 

| ————-—~—4———----—-----——|NO RECORD FOUND 


14701Z |$$BODAO2] CD | 
| [$$BODAU1| CK | 








| -----—--—+--- ---—---——--—--—-++- -——_——-—— —_—_ — 
{42021 | SS$BCISOA NA {NO RECORD FOUND oe 

| --_—___-++ ---_—_ ____-- _-__ _-_+ -__ ___ _-—_ OO Oe 
}4204T1 1 $$BOISO2| LC {NO FORMAT 4 LABEL FOUND | 
[ | [ | or | 
| | {NO RECORD FOUND 
| -------+------ ee eermamecemm | 
{42061 | $$BOISO2| LC {NO STANDARD VOL1 LABEL FOUND j 
{ | SS$BCISOA| NA | or { 
{NO RECORD FOUND 
| -----_--+--------} -—_-- + --_____-_—__-_ owes | 
14608D |$$BODACL] CQ |NO RECORD FOUND | 
| -------+ --_—___-_- + -—-__—+ - ores eee | 


14639D |S$$BODACL| CQ {USER TRL LBL IS NOT STD. | 


Ee FEED en Ear cD PAT ED AD IS SI RNID LE ETE CLD ED AER SLED STEED ELE IIS ARENT TEED LIED EOE AI LID SEY BEA IE EG LILY ALLL ES EE LER LE LE EGY BT ATEN LOD AE GALOIS ED TE i 


——-—--+ 
14240I |S$$BOTSO2| LC | EXTENT OVERLAP ON ANOTHER | 


| -------4----_-_-+---_+} --__—_____--_--------_- __--____--_---__--- | 
(4241I |S$H$BOISO2{ LC | EXTENT OVERLAP ON VTOC | 


—------}----------__--— —-——---------- | 


{-——--—-—-—-+— eee 
14243I |$$BOISO2| LC |INV EXTENT HI/LO LIMITS | 
| [$$BORTV1] NF | 











| -------} —_------4--___----_-------_-----_- —_____--—_ —_- 
{4244R |S$S$BOISO2Z{ LC JOVERLAP ON UNEXPRD FILE | 
|—--—-++-- —--_-----------_-—--—_-—-- | 
{(4245T |S$S$BCISO6{ LI {TOO MANY EXTENTS | 
|-—- --------}-------——---------—----_-- —-- —---—-—-- 
{42461 | $$BOISO7 | MA |LDISCONT INDEX EXTENTS | 
| -------}--------} ---_---_--__-___--_---__-__---_----- —-- 
{4249I |S$$BCISO5S| LG | DATA TRACK LIMIT INVALID | 
—------+}------- — --—---__--_---__—-- 
{4252~T |$$POISO5] LE |DISCONT TYPE 1 EXTENTS | 
Oa a pc a phen A ecclissi set dn wes ell an cen sl ei Spi ac se pts deanna 
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aceasta 
|Message|Issuing | 


[Number {Phase 

14254r% |$$BOISOS| LG 
| | S$$BORTV2| 

| ee cee eee en tena 

{14261I ;S$$BOISO1f LA 
{ {| SSBORTV1] 

| aia 

{4262I |S$$BOITSOS5] LG 
| {SSEBORTV1| NI. 
erent cen menrmmncnnmefi 
{4263I  |S$$BCISO7{ MB 
142661 |$$BOISO5| LF 
14269I |S$S$BOISOT] MC 
ef rn 
[4270I |$S$EORTV2] NG 
| ——-—-----+— 
{14271I |«S$$BOISO1] LA 
14272I |$$BOISO8|] MF 
‘ eee 

{4282I |S$$BCISO7| MA 
|—— —-——-—++ 
{4297I |«S$$POISO2] LC 
{4298I |$$BOISO2] LC 
| opener 


Figure 114. 





{OVLAP UNEXPRD SECRD FILE 
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{Chart | Message 
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{DSK ¥YTN ENTRY TABLE FULL 
NG | 


[INVALID DLBL FUNCTION 


ND | 


{NO PRIME DATA EXTENT 


{LOAD FILE NOT 





‘CLOSED 


[7 TRACK USER LABEL EXTENT 


| FILE IS OPEN FOR ADD 


{1ST XTNT CD NOT INDX VOL 
JEYTENT INFO NEEDED 


{MOD AND DTF INCOMPATIBLE 





EEE IY SERED ELS SATS ED PT 


{ISAM NULL FILE 


{OVLAP EXPIRED SECRD FILE 
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VSE/Advanced Functions Diagnosis Reference: 
contains a master index to LIOCS Volumes 1, 


ADD function (ISAM) 
add to overflcew area 127 
channel program builder 


128-140 
end-of-file add 127 | 


normal add to prime data. area 126 

WAITF macro 126 | 

WAITF macro, detail chart 234 

WRITE NEWKEY macro 127 

WRITE NEWKEY macro, detail chart 238 
add to the overflow area 127,162 
adding records to a file 82,116 
ADDRTR function (ISAM) 

channel program builder 164-187 

end-of-file add 162 

ESETL macro 156 

ESETL macro, detail chart 277 

GET macro 15€ 

GET macro, detail chart 278 

overflow area add 162 

prime data area add 161 

PUT macro 157 

PUT macro, detail chart 282 


157 
detail chart 283 


READ KEY macro 
READ KEY macrc, 
SETL macro 


phase 1, $$ESETL 158 

phase 2, $$BSETL1 159 
phase 3, $$BSETL2 160 
$$BSETL, detail chart 284 
$$BSETL1, detail chart 287 


160 
detail chart 


WAITF macro 
WAITF macro, 
WRITE macro 


292 


KEY 162 
KEY, detail chart 297 
NEWKEY 163 
NEWKEY, detail chart 238 
alteration factors 72 
areas, work 77 
asynchronous prccessing 115 


relative addressing extensions 71 


B-transients (see logical transients) 
buffering, double 115 


capacity record (R0) 28 
CCW chains 128, 141 


CCWs (basic). channel progran builder 36,40 


channel program builder, DAM 36 
descriptor byte 37,41 
detail chart 205 
ISMOD 
ADD 128-140 
ADDRTR 164-187 
RANDOM RETRVE 144-147 
SEQNTL RETRVE 151-155 
strings without RPS 38,43 


INDEX 
LIOCS Volume 1, LY24-5209, 
3, and 4. 
strings with RPS 39,57 
close DAM, input/output 74 
close ISAM 193 
close ISAM, detail chart 319 
close logic, ISAM 190 
CNTRL macro 
DAMOD 32 
DAMOD, detail chart 202 
DAMODV 36 
DAMODV, detail chart 202 
COCR 79,80 
| conventions for relative addresses 21, 71 
conversion of relative addresses 21 
cross-reference label list 327 
cylinder 
index 80 
overflow area 78, 
overflow control record 79 
DAM (direct access method) 11 
channel programs without RPS 38,43 
channel programs with RPS 39,57 
close 74 | 
device independent support 11 
extent information 71 
logic module macros 29 
open overview 73 
DAMOD 
channel program builder subroutine 205 
CNTRL macro 32 
CNTRL macro, detail chart 202 
FREE macro 32 
FREE macro, detail chart 202 
input/output macros 32 
input/foutput macros, detail chart 197 
macro 29 - 
seek overlap subroutine 203 
WAITF macro 31 
WAITF macro, detail chart 198 
DAMODV 
channel program builder subroutine 205 
CNTRL macro 36 
CNTRL macro, detail chart 202 
FREE macro 36 
FREE macro, detail chart 202 
IJIGET subroutine, detail chart 214 
input/output macros 32 
input/output macros, detail chart 206 


macro 29 
seek overlap subroutine, detail 
chart 215 
WAITF macro 36 
WAITF macro, detail chart 
DASD file protect option 194 
DASD label information 187 
data security indicator 73 
descriptor byte, DAM channel program 
builder 41 
device independent support 11 


211 


Index 


direct access method (DAM) 11 
channel program builder strings 
Without RPS 43 
channel program builder strings 
with RPS 39,57 


charts 197 
files 11 
module 29 


double buffering 115 
DSKXTNT table 71 
DTF extensions 


DTFDA 19 
DTFIS 84 
workarea 71 
DTF tables 
DTFDA 13 
DTFIS 
ADD 90 
ADDRTR 108 
LOAD 85 


RETRVE, RANIOM 97 
RETRVE, SEQNTL 103 
_ DTFPH, DAM 20 
DTFDA macro 12 
DTFIS macro 84 
DTFPH macro, DAM 20 


ENDFL macro LOALT 120 
ENDFL macro LOAD, detail chart 220 
EOF add 127,162 | 
EOV limits for prime data area 96 
ERREXT option 115 
ERREXT parameter list 115 
error option extension 115 
error/status indicator 23,25-28 
ESETL macro 

ADDRTR 156 | 

ADDRTR, detail chart 277 

RETRVE, SEQNTL 147 

RETRVE, SEQNTI, detail chart 258 
explanation of flowchart symbols 196 
extending a file with ISAM 81,116 
extent informaticn to user, DAM 71 


factor, reconversion 22 
field, sequence link 76 
file additions, ISAM 82 
flowchart labels 327 
flowchart symbols 196 
formatting macre 28 
FREE macro 
DAMOD 32 : 
CAMOD, detail char 202 
CAMODV 36 . 
DAMODV, detail chart 202 
ISMOD, RANDCM RETRVE- 143. 
ISMOD, RANDOM RETRVE, detail chart 257 
functions 
add records to a file 8&2 
load or extend a file 81 
random record retrieval 82 
sequential record retrieval 83 


GET macro ISMOD 
ADDRTR 156 
ADDRTR, detail chart 278 
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SEQNTL RETRVE 147 . 
SEQNTL RETRVE, detail chart 259 


I/O area requirements 75 
I/O areas 75 
add (blocked records) 77 
add (unblocked records) 76 
load 76 
retrieve (blocked records) 77 
retrieve (unblocked records) 77 
ID, reference by (DAM) 21 
IDLOC 22 
independent overflow area. 78,117 
index level pointer 76 
indexed sequential access method (ISAM) 75 
indexes 78 | 
cylinder 80 
master 80 
track 78 
indicator, error/status 23,25-28 
initialization and termination, DAM 71 
initialization and termination 
procedures, ISAM 187 
input/output macros 
DAMOD 32 
DAMOD, detail chart 197 
DAMODV 32 
DAMODV, detail chart 206 
ISAM (indexed sequential access method) 75 
close 193 
close, detail chart 319 
file extension 81 
open overview 189 . 
rotational position sensing 83 
ISAM macro instructions 
add records to a file 116 
load or extend a DASD file 81,116 
random retrieval 118 | 
sequential retrieval 118 
ISMOD macro 115 


key, reference by (DAM) 21 


label information, DASD 187 
label list, flowchart 327 
length field, sequence 76 
link field, sequence 76 
LOAD function 
ENDFL macro 
phase 1. 120 
phase 1, detail chart 220 
phase 2 121 
phase 2, detail chart 222 
SETFL macro 
phase 1 122 
phase 1, detail chart 224 
phase 2 123 
phase 2, detail chart 226 
phase 3 124 
phase 3, detail chart 227 
phase 3A 124 
phase 3A, detail chart 229 
phase 4 124 
phase 4, detail chart 228 
WRITE NEWKEY macro 125 
WRITE NEWKEY macro, detail chart 230 
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loading or extending a file 81,116 7 SEQNTL RETRVE 147 

logical transients SEQNTL RETRVE, detail chart 258 
$$BCISOA 193 | 7 formatting 28 
$$BCISOA, detail chart 319 FREE 
$$BENDFF 121 DAMOD 32 | 
S$$BENDFF, detail chart 222 DAMOD, detail chart 202 
$$BENDFL 120 DAMODV 36 
$$BENDFL, detail chart 220 DAMODV, detail chart 202 
S$$BINDEX 140 | RANDOM RETRVE 143 
$$BINDEX, detail chart 248 RANDOM RETRVE, detail chart 257 
$S$BODACL 74 GET 
$$BODACL, detail chart 217 : ADDRTR 156 
$$BCISRP 191 © ADDRTR, detail chart 278 
S$S$BOISRP, detail chart 307 SEQNTL RETRVE 147 | 
$$BOISO1 190 | SEQNTL RETRVE, detail chart 259 
$$BCISO1, detail chart 298 | | ISMOD 115 H? - 
$$BOISO2 190 PUT 
$$BOISO2, detail chart 300 ADDRTR 157 
$$BOTSOY 190 ADDRTR, detail chart 282 
$$BOISO4, detail chart 301 SEQNTL RETRVE 148 
$$BOISO5 190 | SEQNTL RETRVE, detail chart 263 
$$BOISO5, detail chart 302 | ; READ 
$$BOISO6 191 | ID DAMOD 31 
$$BOISO6, detail chart 305 ID DAMOD, detail chart 197 
$$BOISO7 192 | KEY DAMOD 31 | as 
$$BOISO7, detail chart 308 KEY DAMOD, detail chart 197. 
$$BOISO8 192 | ; KEY ADDRTR 157 | 
$$BOISO8, detail chart 312 KEY ADDRTR, detail chart 283 
$$BCISO9 193 | . KEY RANDOM RETRVE- 142 
$$BOISO9, detail chart 314 KFY RANDOM RETRVE, detail chart 250 
$$BOIS10 193 SPNUNB records 33 
$$BOIS10, detail chart 317 VARUNB records 32 
$S$BORTV1 194 a SETFL LOAD 121 | 
$S$BORTV1, detail chart 322 : SETFL LOAD, detail chart 224 
$$BORTV2 194 : SETL 
$$BORTV2, detail chart 325 | ADDRTR 158-160 : 
$S$BSETFF 123 ADDRTR, detail chart 284,287 
$$BSETFF, detail chart 226 : SEQNTL RETRVE 149,150 
$$BSETFG 124 os SEQNTL RETRVE, detail chart 264,269 
S$S$BSETFG, detail chart 227 WAITF . a 
$$BSETFH 124 DAMOD 31 
$$BSETFH, detail chart 228 DAMOD, detail chart 198 
$$BSETFI 124 ee: DAMODV 36 
$$BSETFI, detail chart 229 _ DAMODV, detail chart 211 
$$BSETFL 122 . , ISMOD ADD 126 
$$BSETFL, detail chart 224 ISMOD ADD, detail chart 234 
$$BSETL (SEQ RTRVE) 149 ISMOD ADDRTR 160 
$$BSETL (ADDRTR) 158 ISMOD ADDRTR, detail chart 292 
$$BSETL (SEQ RTRVE), detail chart 264 ISMOD RANDOM RETRVE = 142 : 
S$$BSETL (ADDRTR), detail chart 284 ISMOD RANDOM RETRVE, detail 
$$BSETL1 (SEQ RTRVE) 150 chart 251 
$$BSETL1 (ADDRTR) 159 | WRITE 
$$BSETL1 (SEQ RTRVE), detail chart 269 AFTER DAMOD 31 
S$S$BSETL1 (ADDRTR), detail chart 287 AFTER DAMOD, detail chart 197 
$$BSETL2 (ADDRTR) 160 | AFTER SPNUNB records 35 


AFTER VARUNB records 35 
ID DAMOD 31 . 
ID DAMOD, detail chart 197 


macro KEY DAMOD 31 
CNTRL | KEY DAMOD, detail chart 197 
DAMOD 32 | . KEY ISMOD ADDRTR 162 
DAMOD, detail chart 202 KEY ISMOD ADDRTR, detail chart 297 
DAMODV 36 . KEY ISMOD RANDOM RETRVE_ 143 
DAMODV, detail chart 202 KEY ISMOD RANDOM RETRVE, detail 
DIFDA 13 chart 255 
DTFIS 84 NEWKEY ISMOD ADD 127. 
DTFPH, DAM 20 7 . NEWKEY ISMOD ADD, detail chart 238 
ENDFL LOAD 120 _s 7 NEWKEY ISMOD ADDRTR- 163 | 
ENDFL LOAD, detail chart 220 | a NEWKEY ISMOD ADDRTR, detail 
ESETL chart 238 | 
ADDRTR 156 | : NEWKEY ISMOD:' LOAD 125. | 
ADDRTR, detail chart 277 NEWKEY ISMOD LOAD, detail chart 230 
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RZERO DAMOD 31 | 
RZERO DAMOD, detail chart 197 
RZERO SPNUNB records 36 
RZERO VARUNE records 36 
SPNUNB records 33 
VARUNB records 33 
macro instructicn (ISAM) 
add records tc a file 82,116 
load or extend a DASD file 81,116 
random retrieval 118 
sequential retrieval 118 
master index, ISAM 80 
message cross-reference listing 333 
modules, direct access method 29 
modules, reenterable 115 
multiple track search 22 


normal add to prime data area 126, 161 


open DAM 71 
general chart 73 

open ISAM 190 
phase 1 190 
phase 1, detail chart 298 
phase 2 190 | 
phase 2, detail chart 300 
phase 4 190 
phase 4, detail chart 301 
phase 5 190 
phase 5, detail chart 303 


phase 6 191 

phase 6, detail chart 305 
phase 7 192 

phase 7, detail chart 308 
phase 8 192 

phase 8, detail chart 312 
phase 9 193 


phase 9, detail chart 314 

phase 10 193 

phase 10, detail chart 317 

RPS phase 191 . 

RPS phase, detail chart 307 
open logic DAM, general chart 73 
open logic ISAM, general chart 189 
open/close logic DAM 71 
open/close logic ISAM 190 
open 

ISAM RETRVE 

phase 1 194 

phase 1, detail chart 322 

phase 2 194 

phase 2, detail chart 325 
overflcw area 77 

cylinder 78 

independent 78 

ISMOD ADD 127 

upper limits 96 


parameter list, ERREXT 115 
prime data area EOV limits 96 
processing, asynchronous 115 
PUT macro ISMOD 
ADDRTR 157 
ADDRTR, detail chart 282 
SEQNTL RETRVE 148 
SEQNTL RETRVE, detail chart 263 
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RDONLY 115 
read cylinder index into storag 140 
detail chart 248 
READ ID macro 
DAMOD 31 
DAMOD, detail chart 197 
READ KEY macro 
DAMOD 31 
DAMOD, detail chart 197 
ADDRTR 157 
ADDRTR, detail chart 283 
RANDOM RETRVE 142 
RANDOM RETRVE, detail chart 250 
READ macro 
SPNUNB records 33 
VARUNB records 32 
reconversion factor 22 
record 
capacity (RZERO) 28 
ID returned (IDLOC) 23 
spanned 24,34 
types, ISAM 75 
zero (RO) 28 
reenterable mcdule 115 
reference 
by ID (DAM) 21 
by KEY (DAM) 21 
methods and addressing systems 20 
relative address conversion 21 
relative addressing conventions 20, 71 
requirements for I/O areas 75 
RETRVE functions random (ISAM) 
channel program builder 144-147 
FREE macro 143 
FREE macro, detail chart 257 
READ KEY macro 142 
READ KEY macro, detail chart 250 
WAITF macro 142 
WAITF macro, detail chart 251 
WRITE KEY macro 143 | 
WRITE KEY macro, detail chart 255 
RETRVE functions sequential (ISAM) 
channel program builder 151-155 
ESETL macro 47 
ESETL macro, detail chart 258 
GET macro 147 
GET macro, detail chart 259 
PUT macro 148 
PUT macro, detail chart 263 
SETL macro 
$$BSETL 149 
$$BSETL, detail chart 264 
$$BSETL1 150 
$$BSETL1, detail chart 269 
RETRVE open (ISAM) 
phase 1 194 
phase 1, detail chart 322 
phase 2 194 
phase 2, detail chart 325 
returned record ID (IDLOC) 23 
rotational position sensing (RPS) 83 
RPS (rotational position sensing) 83 
RZERO (capacity record) 28. 


; 


search multiple tracks 22 
seek overlap subroutines 203,215 
sequence link field 76 

entries 82 

index level pointer format 76 
SETFL macro LOAD 121 
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SETFL macro LOAD, detail chart 224 
SETL macro ISMOD 

ADDRTR 158-160 

ADDRTR, detail chart 284,287 

SEQNTL RETRVE 149,150 

SEQNTL RETRVE, detail chart 264,269 
Spanned records 

control field 24 

multisegment 34 

READ macro 33 

WRITE macro 33 

WRITE AFTER macro 35 

WRITE RZERO macro 36 
storage areas 75 

I/O areas 75 

work areas 77 


strings, channel program builder 38,39 | 


subroutines, detail charts 
DAMOD channel program builder 205 
DAMOD seek overlap 203 
DAMODV channel program builder 205 
DAMODV IJIGET 214 
DAMODV seek overlap. 215 

symbols, flowcharting 196 


table, DSKXTNT 71 

termination of DAM 71 
termination procedures 71,187 
track index 78 

track search, multiple 22 
types of records 75 


VARUNB records 
READ macro 32 
WRITE after macro 35 
WRITE. macro 33 
WRITE RZERO macro 36 


WAITF macro 
DAMOD 31 
DAMOD, detail chart 198 
DAMODV 36 
DAMODV, detail chart 211 
ISMOD 
ADD 126 
ADD, detail chart 234 : 
ADDRTR- 160 
ADDRTR, detail chart 292 
RANDOM RETRVE 142 
RANDOM RETRVE, detail chart 251 
work areas 77 
WRITE AFTER macro 
DAMOD 31 
DAMOD, detail chart 197 
SPNUNB records 35 ; 
VARUNB records 35 
WRITE ID macro 
DAMOD 31 
DAMOD, detail chart 197 
WRITE KEY macro 


DAMOD 31 
DAMOD, detail chart 197 
ISMOD 


-ADDRTR 162 
ADDRTR, detail chart 297 
RANDOM RETRVE 143 
RANDOM RETRVE, detail chart 255 
WRITE macro 
SPNUNB records 33 
VARUNB records 33 
WRITE NEWKEY macro ISMOD 
ADD 127° 
ADD, detail chart 238 
ADDRTR 163 
ADDRTR, detail chart 238 
LOAD 125 © 
LOAD, detail chart 230 


WRITE RZERO macro 


DAMOD 31 

DAMOD, detail chart 197 
SPNUNB records 36 
VARUNB records 36 


Index 
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